if (-l "BLAH") {
   # <---- dazwischen Race Condition möglich?
   open(my $fh, "+<", "BLAH") or return;
   # <---- dazwischen Race Condition möglich?
   flock($fh, LOCK_EX);
}