close(STDOUT);
open ( my $LOG, ">", $logfile );
*STDOUT = $LOG;