use Fcntl qw(:flock);  # import LOCK_* constants

open F,">>",$somefile or die $!;
flock(F,LOCK_EX);  # lock exclusively - waits for lock

# write stuff here

close(F); # close() will release the lock.