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