Help for this page
open RECORD_NUMBER, '<', "counter_data.dat" or die; $count = <RECORD_NUMBER>; ... open FILE, '>', "counter_data.dat" or die; print FILE $count; close FILE;
perl -i -pe '++$_' counter.dat