# Warning: untested.  If this were actual code, I would "use strict;"
open (F, ">>$my_file");
flock (F, LOCK_EX) or die "no lock!";
seek (F, 0, 2); # In case someone wrote after open but before I got the lock
print F $my_stuff_to_print;
close F;