open my $INFILE, '<', $fname
    or die "Couldn't open $fname: $!";