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

##</code><code>##

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

##</code><code>##

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