Help for this page
open(my $fh, '<:perlio:raw', $qfn);
open(my $fh, '<', $qfn); binmode($fh);
local $/; my $str = <$FI>;
read $FI, my $str, -s $FI;