open(my $lfh, $log) or die "Could not open log file '$log': $!";