Select Code to Download

#! perl -slw
use strict;
...
chomp( my $interact1 = <STDIN> );
chomp( my $interact2 = <STDIN> );
print "Got: $interact1 $interact2";

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