#!/usr/bin/env perl                                                         

use IPC::Run qw( start finish );
use strict;
use warnings;

my @cat = qw( cat foo );

my @wc = qw( wc -l);

my $h = start \@cat, '|', \@wc, '2>', '/dev/null';

$h->finish;

print $h->full_result(0) . qq(\n);

print $h->full_result(1) . qq(\n);

__END__

karls-mac-mini:Desktop karl$ ./ipc.pl                                                            
       0                                                                                          
1                                                                                                 
0