open FH, ">>foo" or die "Can't open foo: $!";
flock FH, 2;
seek FH, 0, 2;