open $fh, '<', $qfn || die "...";