*LWP::Protocol::http::Socket::connect =
  *LWP::Protocol::http10::Socket::connect =
  *LWP::Protocol::https::Socket::connect =
  *LWP::Protocol::https10::Socket::connect = sub {
    my $self = shift;
    my $sock = $self->SUPER::connect(@_);
## get port here
    return $sock;
  };