use Tie::File;

tie( my @count, 'Tie::File', 'counter_data.dat' )->flock;
$count[ 0 ]++;
untie @count;