my $numlinks = (stat( "BLAH"))[3];
# <---- dazwischen Race Condition möglich?
if ($numlinks == 0) {
# <---- dazwischen Race Condition möglich?
  open(my $fh, "+<", "BLAH") or return;
# <---- dazwischen Race Condition möglich?
  flock($fh, LOCK_EX);
}