#!/usr/bin/env perl

use strict;
use warnings;

use Data::Dumper;
use IPC::Cmd qw/run/;

my @in = ("Test foo", "Test bar");

print "In: " . Dumper(@in);

@in = ("Test foo", "Test bar");

my @out = run(command => [echo => -n => @in] , '|', [ sed => -r => "s/(foo|bar)/pass/" ], '>', \my $out);

print "Out: " . Dumper(@out);
print "Redir: " . Dumper($out);



##</code><code>##

 % ./t2.pl
In: $VAR1 = 'Test foo';
$VAR2 = 'Test bar';
Out: $VAR1 = 1;
$VAR2 = undef;
$VAR3 = [
          'Test foo Test bar'
        ];
$VAR4 = [
          'Test foo Test bar'
        ];
$VAR5 = [];
Redir: $VAR1 = undef;