open(my $fh, "<", $filename)
    or die "Can't open $filename: $!";