open (RECORD_NUMBER, "counter_data.dat") or die;
$count = <RECORD_NUMBER>;
$count = $count + 1;
print RECORD_NUMBER "$count";
close (RECORD_NUMBER) or die;