use Fcntl ':flock';
open (LF,'>>',$file);
flock (LF,LOCK_EX|LOCK_NB) or die "Just one at a time, please";
select LF; $|=1; print "$$\n"; select STDOUT;

...snip...

truncate LF,0; close LF; unlink $file;
__END__