Help for this page
my ($thr,$tid); ... while ((!($tid = threads->tid()))&&(my $client = $socket->accept)) { $thr = threads->create(\&process_request,$client);
while ((!($tid = threads->tid()))&&(my $client = $socket->accept)) { my $thr = threads->create(\&process_request,$client);