Select Code to Download

#WRITE NUMBER BACK
open(FH, "+< counter.dat");

#READ NUMBER, INCREASE AND WRITE NUMBER BACK
open(FH, "+< counter.dat");
...
 seek(FH, 0, 0); truncate(FH, 0);
 print FH $id;
close(FH);