Help for this page

Select Code to Download

Select or download this

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