% perl -MFcntl -e 'open my $f, "<foofile"; flock $f, LOCK_EX; open my $g, ">foofile"; flock $g, LOCK_EX|LOCK_NB or die "No lock\n";'                
No lock
%