#!/usr/bin/env perl

use strict;
use warnings;
use IPC::Run qw( run harness );
use Try::Tiny;
use Carp;

my $file = shift || $0;

my @cat = ( "cat", $file );

my @wc = qw( wc -l );

my ( $error, $result );

my @command = ( \@cat, '|', \@wc, '1>', \$result, '2>', \$error );

my $harness = harness @command;

try {
    run $harness;
    croak $error if $harness->full_result;
}
catch {
    print qq(Error: $_);
};

chomp $result;

printf( "%s:\t%s\n", "result", $result );

printf( "%s:\t%s\n", "cat",    $harness->full_result(0) );

printf( "%s:\t%s\n", "wc",     $harness->full_result(1) );

__END__