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