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