Select Code to Download

$thr = threads->create(\&worker_thread);

use IO::Socket;
...
    }
  }
}

use IO::Socket;

...
    print $client "$_\n";
    sleep 1;
}