Select Code to Download

open I, "<counter.txt"; my $n = <I>; chomp($n); close(I); $n++; open O
+, ">counter.txt"; print O $n; close(O);

Storable::nstore("file", \$count);

perl -MFile::Slurp -le 'write_file "tmp42", $n = 1 + eval{read_file "t
+mp42"}; print $n'