use LWP::UserAgent;
use HTTP::Request::Common;

my $url      = 'http://www.perlmonks.org/';

my $browser  = LWP::UserAgent->new;
my $response = $browser->request( GET $url );

if ( $response->is_success ) {
  my($ip,$port) = split /:/, $response->header("Client-Peer");
  print "Connected to $ip on port $port\n";
} else {
  print "Couldn't get $url: ", $response->status_line, "\n";
}