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 '
'