use Fcntl ':flock'; # import LOCK_* constants

my $filename = "somefile.txt";
open FILE, ">>$filename" or die "Cannot open $filename for writing: $!";
flock FILE, LOCK_EX      or die "Cannot get exclusive lock on $filename: $!";