just another Perl e,

##</code><code>##

just  Perl hack,

##</code><code>##

perl -WTe "my $b=0;$b->d();" 2>&1

##</code><code>##

syntax error at -e line 1, near "my ="

##</code><code>##

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

##</code><code>##

'\'my $b=0;$b->d();\'');

##</code><code>##

just another Perl hack,

##</code><code>##

@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];

##</code><code>##

my undef=0;undef->d();