#! perl -slw
use strict;

printf "%030d\n", $_ for 1 .. 1e3;
print "Press enter to exit";


##</code><code>##

#! 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>;

##</code><code>##


[12:05:50.87] C:\test>winopen2-test.pl
1001


[12:06:00.23] C:\test>