in reply to Vexing Race Condition

open(my $fh,">", $file) truncates the file before you lock it.

In Section Seekers of Perl Wisdom