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: $!";
####
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: $!";