use strict;
use warnings;

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

open LOG, ">", $log or die "$!\n";

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

close LOG;