Select Code to Download

#! perl -slw
use strict;
...
    print "Received '$msg' from $tid";
    $Qs[ $tid ]->enqueue( 'Thankyou for your enquiry' );
}

__END__
P:\test>388547 -THREADS=10
...
Received 'Why don't you call me anymore?' from 5
Received 'Why don't you call me anymore?' from 6
Received 'Why don't you call me anymore?' from 9

#! perl -slw
use strict;
...

# and terminate the connection when we're done
close($socket);

__END__
for /l %i in (1,1,30) do @start /b SockClient
...
Got: Thankyou for your enquiry
Got: Thankyou for your enquiry
Got: Thankyou for your enquiry