my $pid = open2(\*OUT, \*IN, '| findstr hello');
                              ^

##</code><code>##

my $pid;
eval {
    $pid = open2(\*OUT, \*IN, "NotThere ..." );
};
if ($@ and $@ =~ /^open2:/) {
    die "$@: $!\n";
}

##</code><code>##

> perl 729630.pl
open2: exec of NotThere ... failed at 729630.pl line 8
: No such file or directory