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