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

##</code><code>##

$count = <RECORD_NUMBER>;

##</code><code>##

$count = $count + 1;

##</code><code>##

print RECORD_NUMBER "$count";

##</code><code>##

close (RECORD_NUMBER) or die;

##</code><code>##

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