open (my $INFILE, '2perl.pl |') or die "couldn't start program: $!"; 
 
while (<$INFILE>) { 
    print; 
} 

close $INFILE;