Select Code to Download

    local($^W) = 0;  # IO::Socket::INET can be noisy
    my $sock = $self->socket_class->new(PeerAddr => $host,
...
                                        $self->_extra_sock_opts($host,
+ $port),
                                       );