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