open(my $fh, '<', $qfn)
   or die("open $qfn: $!\n");
binmode($fh);