#!/usr/bin/perl

use IPC::System::Simple qw( capture );
use strict;
use warnings;

my $result;

my $file = $0;

eval{
    $result = capture("cat $file | wc -l");
};

if ($@) {print "Error: $@"}

print qq(capture $file: $result);

$file = qq(foo);

undef $result;

eval{
    $result = capture("cat $file | wc -l");
};

if ($@) {print "Error: $@"}

print qq(capture $file: $result);

__END__

 ./test.pl
capture ./test.pl: 32
cat: foo: Datei oder Verzeichnis nicht gefunden
capture foo: 0