open FH, "+< counter.dat" or die $!;
flock(FH, 2);
$id = <FH>;
$id++;
seek(FH, 0, 0);
truncate(FH, 0);
print FH $id or die $!;
close FH or die $!;