or download this
open $fh, "<", $^X or die;
binmode $fh, ":raw"; # perldoc says: identical to 'binmode $fh'
...
binmode $fh, ":raw:perlio"; # seems not useful (see below)
print "4: ", join(' ', PerlIO::get_layers($fh, details => 1)), "\n";
close $fh;