Select Code to Download

open(my $pipe,'-|','/usr/local/bin/foo','bar','baz','1&2>3') or die "C
+an't start foo: $!";
my @output=<$pipe>;
close $pipe or die "Broken pipe: $!";

my @output=safe_qx('/usr/local/bin/foo','bar','baz','1&2>3');

> 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
>

open $list[0] my $pipe,'-|',@list or die "Can't open pipe: $!";