open(MYFILE, ">>$myfile") || die "Can't append to $myfile, Perl says $!";
flock(MYFILE, 2) || die "Can't lock $myfile, Perl says $!";
print MYFILE "Hello World!\n";
close MYFILE;