flock(FP, LOCK_EX) or die "Cannot lock $FILE ($!)\n".

##</code><code>##

Cannot lock filename (Bad file number)