Select Code to Download

    # connect to remote site
    my $socket = $self->_new_socket($host, $port, $timeout);
...
    #my($self, $req, $sock) = @_;
}

*LWP::Protocol::http::Socket::connect =
  *LWP::Protocol::http10::Socket::connect =
...
## get port here
    return $sock;
  };