The simplest model I have found for sockets is the IO::All module. I havent personally tested IO::All sockets on win32, but it is worth examining. Sample code:

### Server ########
use IO::All;

    my $socket = io(':12345')->fork->accept;
    $socket->print($_) while <DATA>;
    $socket->close;

    __DATA__
    On your mark,
    Get set,
    Go!
##############Here is the client code:

    use IO::All;

    my $io = io('localhost:12345');
    print while $_ = $io->getline;
[download]