open my $fh, '<', $filename or die "open '$filename' failed: $!\n";