The simplest method is to use Tie::File

use Tie::File;

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