Select Code to Download

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

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

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