my ($thr,$tid);
...
while ((!($tid = threads->tid()))&&(my $client = $socket->accept)) { 
  $thr = threads->create(\&process_request,$client);
[download]

Hmm, looks like there's a leak with detach. A workaround is to narrow the scope of $tid, ie

while ((!($tid = threads->tid()))&&(my $client = $socket->accept)) { 
  my $thr = threads->create(\&process_request,$client);
[download]

otherwise when you re-enter the loop, the old value in $thr is still there, and gets cloned into the newly-created thread.

Dave.