#! perl -slw
use strict;

chomp( my $interact1 = <STDIN> );
chomp( my $interact2 = <STDIN> );
print "Got: $interact1 $interact2";

##</code><code>##

C:\test>perl -E"$p = open I, '-|', '( echo fred & echo jim ) | interact.pl'; say for <I>;"
Got: fred  jim