flock(ARGV,LOCK_EX) or die "flock failed: $!";

##</code><code>##

flock failed: Bad file descriptor at foo line 6.