open(my $fh, '<', $qfn);
binmode($fh);