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