rename "file1", "file2";
my $fh = new IO::File("file1","w")
flock($fh,LOCK_EX) or die "can't get lock";
my $fh2 = new IO::File("file2","r");
#read fh2 write to $fh
flock($fh,LOCK_UN);
# perhaps delete file2