open( my $fh, '-|', "script2 a b c" ) or die;
while (<$fh>) { print; }