my( $in, $out );
if( $^O eq 'MSWin32' ) {
    ($in, $out ) = winopen2( $theCommand );
}
else {
    open2( $in, $out, $theCommand );
}

...

select .....