use File::CounterFile;
$c = new File::CounterFile $data_file, $initial_value;
$raw_data = $c->inc;