Help for this page
open (FILE, "<file.txt"); my @file=<FILE>; ... open (FILE, ">file.txt"); print FILE "$file[0]\n"; close FILE;
tie my @file, 'Tie::File', 'file.txt'; $file[0]=$file[0] + 1; untie @file;
www.com | www.net | www.org
No recent polls found
