[james@adajio ~]$ cat cat.pl
$|++;
print while <>;
[james@adajio ~]$ cat ipc.pl
#!/usr/bin/perl

use strict;
use IPC::Open2;
$|++;

my $EOF  = ''; # chr(0x1a);  # inline use "\x1a"
my $perl = "/usr/bin/perl";
my $cat  = "/home/james/cat.pl";
my $data = "first line\nsecond line";

my $pid = open2(my $rdr, my $wtr, $perl, $cat );

print "Sending:\n$data\n----\n";
print $wtr $data .$EOF;
close $wtr;

print "Going for read!\n";
print while <$rdr>;

[james@adajio ~]$ ./ipc.pl
Sending:
first line
second line
----
Going for read!
first line
second line
[james@adajio ~]$