# In the server:
    use IO::Handle;
    my @command = ( 'perl', 'client.pl' );
    my ($started, $fd)= winopen2( @command );
    $fd->autoflush;

# and the client:
    use IO::Handle;
    STDIN->autoflush;
    STDOUT->autoflush;

    print "$_" while <>;