#!/usr/bin/perl

use strict;
use warnings;

$|=1;

my $p2 = "/tmp/p2.pl";

open(P2,"$p2 |") || die "P2: $p2 - $!\n";
while(<P2>) {
   print;
}