use strict;
use warnings;
use IPC::Cmd qw( run );

my $tool = 'tar';
my $cmd = [ 'perl', '-e', 'warn "TEST FAILED IF YOU SEE THIS\n"' ];
my $buffer = '';
my @out = run( command => $cmd,
          buffer => \$buffer,
          verbose => 1 );