#! perl -slw
use strict;
use threads;
use IO::Socket::INET;

my $s = IO::Socket::INET->new( LocalPort => 9999, Listen => 255, reuse=>1 );
while( my $c = $s->accept ){
    threads->create( sub {
        printf "Server$$: Got %s", scalar <$c>;
        print $c chr( 65 + rand(26) ) x 32;
        $c->shutdown(2);
    } )->join;
}