Select Code to Download

$ perl  -le " open my $fh => '<:raw', \'blah' "

-e:1 scalar => 0x12113000
-e:1 raw => 0x68b5c6c0
...
-e:1 Layer 0 is unix
-e:0 Destruct 0x3f3f7c
...

-e:1 scalar => 64fc3000
-e:1 raw => 66c53840
-e:1 Layer 1 is raw
...
-e:0 PerlIO_pop f=009941dc scalar
-e:0 Destruct 003f4004
...

$ perl  -le " open my $fh => '<:encoding(UTF-8)', \'blah' "

-e:1 encoding => 0x1076000
-e:1 Layer 1 is encoding
-e:1 openn(encoding,':encoding(UTF-8)','r',-1,0,0,0,1,0x3f5208)
...
-e:0 PerlIO_pop f=0x9b4024 encoding
-e:0 PerlIO_pop f=0x9b4024 scalar
-e:0 Destruct 0x3f3f5c