open my $fh, '<', $qfn
    or die $!;