open LOG, '>', 'log.txt' or die $!;

##</code><code>##

use IO::Handle qw( );
open LOG, '>', 'log.txt' or die $!;
LOG->autoflush(1);

##</code><code>##

use Fcntl qw( :seek );
seek(LOG, 0, SEEK_END);