Help for this page

Select Code to Download

Select or download this

sub _get_addr {
   my($sock,$addr_str, $multi) = @_;
...
   }
   @addr;
}

Select or download this

use IO::Select ();
use IO::Socket qw( AF_INET SOCK_STREAM );
...
   or die("Unable to connect\n");

# $sock->blocking(1);  # Revert to blocking if so desired.