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