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 &$s($z[$_],$l{$_})for(0..2);unde
+f $\;$o='';$o.=&$s($z[3],$l{3}[$_])
for(0..1);@o=$o=~/./g;print $o[3],@o[8..10];$o=&$s($z[2],5);@o=$o=~/./
+g;print $o[-1]