This should be portable (works on window ) .... dunno if its better or worse than using Thread::Queue for ipc( qin/qout) 

#!/usr/bin/perl --
use strict;
use warnings;
use threads stack_size => 4096;
use IO::Socket::INET;

our $host = "localhost:".int(rand 99999);

async( sub {
    my $tid = threads->tid;
    use Time::HiRes qw/ usleep /;
    my $server =  IO::Socket::INET->new(
        Proto    => "tcp",
        LocalHost => $host,
        Listen => 1,
        Reuse => 1,
    ) or die "Cannot start tcp server: $!\n  $@\n ";

    print "listening on $host\n";
    sleep 1;
    my $client = $server->accept();
    while(<$client>){
        print "reader($tid) $_";
        last if /exit/i;
    }
});

async( sub {
    my $tid = threads->tid;
    use Time::HiRes qw/ usleep /;
    my $socket =  IO::Socket::INET->new(
        Proto    => "tcp",
        PeerHost => $host,
    ) or die "Cannot start client : $!\n  $@\n ";

    for(1..20){
        usleep 2000*rand(500); # 2000 sleep for 2 millisecond
        $socket->print( "writer($tid) ".scalar(gmtime)."\n" );
    }
    $socket->print( "writer($tid) ".scalar(gmtime)." exit\n" );
});


$_->join for threads->list;

__END__

[download]

In reply to Re: Can I/O operations on the same IO::Socket be executed in different threads? by Anonymous Monk
in thread Can I/O operations on the same IO::Socket be executed in different threads? by Anonymous Monk

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.