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

## Run the command and get a bi-direction pipe to it.
my $pipe = winopen2( 'RunMe.exe arg arg arg' );

## Fetch the results from the pipe
my @results = <$pipe>;

## Send enter to it
print $pipe "\n";

## use @results here