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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

open(my $fh, '<:encoding(UTF-8)', $qfn)

##</code><code>##

open(my $fh, '<:encoding(UTF-16le)', $qfn)