Select Code to Download

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