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

my $pid = open2(\*OUT, \*IN, '| findstr hello');
my $sometext = <<END;
Hello, World!
END
print IN $sometext;
close IN;

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