perl -MFcntl=:flock -we 'open F, ">lock" or die "open"; flock(F, LOCK_EX) or die "flock: $!"; print "geflockt\n"; sleep 20'