Select Code to Download

while ($new_sock = $sock->accept()) {
   while (defined ($buf = <$new_sock>)) {
...
   }
   close ($new_sock);  ###########################
}

while (1)
{
    $new_sock = $sock->accept() || next;
....