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