sysopen(my $fh, "BLAH", O_RDWR) or return;
# <---- dazwischen Race Condition möglich?
flock($fh, LOCK_EX);