Select Code to Download

#    if( threads::list( threads::running ) >= 100 ) {
#        sendResponse("Session rejected. Too many sessions currently r
+unning.\n", 101, $client); #just decided 101 should be the retry retu
+rn code, no reason really
...
#        $client->shutdown(2);
#        $client->close;
#    }else

our $T //= 1000;
our $R //= 1000;
...
}

$_->join for @threads;