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