# Raw buffered handle.
open(my $fh, '<:perlio', $qfn)
   or die("open $qfn: $!\n");

##</code><code>##

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