open(my $fh, '<:perlio:raw', $qfn);