Select Code to Download

while(1)
{
...
threads->create(\&initplayer,$connection);
 
}

sub initplayer {
  my $hand = shift;
...
  print "THREAD DESTROYED!\n";
  $hand->close();
  }