open my($out), 'command |' or die $!;
print $out $_ while <$in>;
close $out;