Select Code to Download

C:\test>type junk
Press any key to continue . . .

$pipe->reader( 'yourprog arg arg | tee CON' );

C:\test>perl -MIO::Pipe -we"$p=IO::Pipe->reader('(pause & dir z)|tee C
+ON');@i=<$p>;print qq[Got '$_']for @i"
Press any key to continue . . .
...
'Got ' Directory of C:\test
'Got '
'

$pid=open CMD, "$cmd |"; 
@input = <CMD>;

C:\test>perl -e"$pid=open CMD,q[(pause & dir z)|tee CON |];@i=<CMD>;pr
+int qq[Got '$_']for @i"
Press any key to continue . . .
...
'Got ' Directory of C:\test
'Got '
'