Select Code to Download

  while (1) {
    my $client = $server->accept() ;
...

    my $thr = threads->new(\&processit, $client)->detach();
  } ;