Select Code to Download

use threads;
use IO::Socket::INET;
...
$thread->join();
  $thread1->join();
--------end of code-----------

 while($so->recv($txt,128)){print "server : $txt";}