use FileHandle;
...
my $VirtualPrnFH = new FileHandle;
$VirtualPrnFH->open( "| perl print.pl" );
$VirtualPrnFH->autoflush(1);  # turn off buffering
...
print $VirtualPrnFH "foobar\n";
...