Select Code to Download

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;