Select Code to Download

$ perl -le'open $fh, "<", "foo"; print for PerlIO::get_layers($fh)'
unix
...
$ perl -le'open $fh, "<:raw", "foo"; print for PerlIO::get_layers($fh)
+'
unix