#! perl -slw
use strict;
use Win32::Socketpair qw[ winopen2 ];

## Run the command and get a bi-direction pipe to it.
my $pipe = winopen2( 'RunMe.pl' );
my @results = <$pipe>;
print $pipe "\n";

print scalar @results;

<STDIN>;