use strict; use warnings; #### open(my $log, '>', $logfile) or die "Cannot open file '$logfile' for writing: $!";