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