open my $fh, '<', $filename or die ...