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";