Select Code to Download

$self->{SOCK} = new IO::Socket::INET(LocalPort=>$port,
                                     Proto=>"tcp",
                                     Listen=>10,
                                     Reuse=>1,
                                     Blocking=>0);

######################################################################
+#########
#
...
    fcntl($socket, F_SETFL, $flags | O_NONBLOCK) ||
        croak("Can't make socket nonblocking: $!\n");
}