if( open( my $fh, "+>> $file" ) ){ flock($fh,2); seek($fh,0,0); my $counter = <$fh>; $counter++; truncate($fh,0); # ここでプログラムを止められるとカウンターがゼロになる print $fh "$counter\n"; close($fh); }