#!perl
use strict;
use warnings;
use IPC::Open2;

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

my $sometext = <<END;
Hello, World!
END
print IN $sometext;
close IN;

my @found = <OUT>;
print join " ", @found;