Select Code to Download

        shutdown $socket, 2;

while ( my ($new_sock, $clientAddr) = $sock->accept() )
{
...
        delete $sockets{ $fileno };
    }
}

SIG{PIPE}='IGNORE';

shutdown $socket, 2;
close $socket;