Select Code to Download

#!perl -w
# self-contained counter script increments and prints value in DATA
...

__DATA__
0

#!perl -w
# counter script increments and prints value in $file
...
close FILE or die "$!";

print $num; # print incremented value