Select Code to Download

Select or download this
```
just another Perl e,
```
Select or download this
```
just  Perl hack,
```
Select or download this
```
perl -WTe "my $b=0;$b->d();" 2>&1
```
Select or download this
```
syntax error at -e line 1, near "my ="
```

Can't call method "d" without a package or object reference at -e line
+ 1.

Select or download this
```
'\'my $b=0;$b->d();\'');
```
Select or download this
```
just another Perl hack,
```

Select or download this

@z=('"my %h;1 if defined(%h);"','"my %h=(c=>0);*ENV=\\%h;system(\'echo
+ $ENV{c}\');"','"require v9;"','\'my $b=0;$b->d();\'');$s=sub{($c,$p)
+=@_;$c='perl -WTe '.$c.' 2>&1';$e=`$c`;@w=split/ /,$e;$w[$p]};%l=(0,9
+,1,4,2,0,3,[4,6]);$\=' ';print $m=&$s($z[$_],$l{$_})for(0..2);undef $
+\;$o='';$o.=&$s($z[3],$l{3}[$_])for(0..1);@o=$o=~/./g;print $o[3],@o[
+8..10];@o=$m=~/./g;print @o[1..2];$o=&$s($z[2],5);@o=$o=~/./g;print $
+o[-1];

Select or download this
```
my undef=0;undef->d();
```