seek(STDOUT, -0, 2) or die $!;
print STDOUT "abc\n";