open my $FH, ">>foo" or die "can't open";
flock $FH, LOCK_EX or die "no lock";
seek ($FH, 0, 2);