use Fcntl qw(:flock);

binmode FILE;
eval { flock FILE, LOCK_EX };