open(my $fh, '<', $qfn)
    or die("Can't open input file \"$qfn\": $!\n");