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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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