open(my $fh, '<', $file_name)
   or die("Unable to read log file \"$file_name\": $!\n");