open RECORD_NUMBER, '<', "counter_data.dat" or die;
$count = <RECORD_NUMBER>;
close RECORD_NUMBER;
$count++
open FILE, '>', "counter_data.dat" or die;
print FILE $count;
close FILE;

##</code><code>##

perl -i -pe '++$_' counter.dat