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

##</code><code>##

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

##</code><code>##

C:\test>perl -MIO::Pipe -we"$p=IO::Pipe->reader('(pause & dir z)|tee CON');@i=<$p>;print qq[Got '$_']for @i"
Press any key to continue . . .
 Volume in drive C has no label.
 Volume Serial Number is BCCA-B4CC

 Directory of C:\test

File Not Found
Got 'Press any key to continue . . .
'Got ' Volume in drive C has no label.
'Got ' Volume Serial Number is BCCA-B4CC
'Got '
'Got ' Directory of C:\test
'Got '
'

##</code><code>##

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

##</code><code>##

C:\test>perl -e"$pid=open CMD,q[(pause & dir z)|tee CON |];@i=<CMD>;print qq[Got '$_']for @i"
Press any key to continue . . .
 Volume in drive C has no label.
 Volume Serial Number is BCCA-B4CC

 Directory of C:\test

File Not Found
Got 'Press any key to continue . . .
'Got ' Volume in drive C has no label.
'Got ' Volume Serial Number is BCCA-B4CC
'Got '
'Got ' Directory of C:\test
'Got '
'