Select Code to Download

open (RECORD_NUMBER, "counter_data.dat") or die;

$count = <RECORD_NUMBER>;

$count = $count + 1;

print RECORD_NUMBER "$count";

close (RECORD_NUMBER) or die;

open (RECORD_NUMBER, '+<', "counter_data.dat") or die;
chomp($count = <RECORD_NUMBER>);
...
seek RECORD_NUMBER, 0, 0;
print RECORD_NUMBER $count,"\n";
close (RECORD_NUMBER) or die "Canīt close filehandle RECORD_NUMBER: $!
+\n";