Select Code to Download

sub inefficient_qx
{
...
        return $tmp;
    }
}

> perl -E 'open my $pipe,"-|","pstree --ascii --arguments --long $$ 1>
+&2" or die $!;'
perl -E open my $pipe,"-|","pstree --ascii --arguments --long $$ 1>&2"
+ or die $!;
  `-sh -c pstree --ascii --arguments --long 22176 1>&2
      `-pstree --ascii --arguments --long 22176
>

> perl -E 'open my $pipe,"-|","pstree --ascii --arguments --long $$ 1>
+&2","dummy" or die $!;'
No such file or directory at -e line 1.
>

> perl -E 'system("pstree --ascii --arguments --long $$ 1>&2")==0 or d
+ie $!'
perl -E system("pstree --ascii --arguments --long $$ 1>&2")==0 or die 
+$!
...
No such file or directory at -e line 1.

>

> perl -E '@list=("pstree --ascii --arguments --long $$ 1>&2"); system
+ { $list[0] } @list and die $!'
No such file or directory at -e line 1.
...
No such file or directory at -e line 1.

>