Select Code to Download

#! perl -slw
use strict;
...
        $c->shutdown(2);
    } )->join;
}

#! perl -slw
use strict;
...
}

$_->join for @threads; ## Wait for threads to die

[12:20:32.79] C:\test>start /b tserver

...
Client: Got 'TTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTT' from thread:2
Server: Got Give me 32 bytes please
Client: Got 'RRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRR' from thread:5