Help for this page

Select Code to Download

Select or download this

open (RECORD_NUMBER, "counter_data.dat");
while (<RECORD_NUMBER>) {
$count = $_;
...
open (RECORD_NUMBER, ">counter_data.dat");
print RECORD_NUMBER $count++;
close RECORD_NUMBER;