use strict;
use warnings;

use IO::Handle qw( );

my $log = "/tmp/log.txt";

open my $LOG, ">", $log or die "$!\n";
$LOG->autoflush(1);

while ( 1 ) {
     my $time = localtime() ;
     print $LOG "$time\n";
     print "$time\n";
}

close $LOG;