#!/usr/bin/perl -w

# Uses
use strict;
use LWP 5.64;


# URL

my $url = 'http://google.com';

# User Agent Object
my $browser = LWP::UserAgent->new;
# $browser->proxy([qw(http ftp)], 'http://google.com:80');
$browser->env_proxy;

my $response = $browser->get( $url);

die "Couldn't get $url -- " ,$response->status_line
unless $response->is_success;

##</code><code>##

$browser->proxy([qw(http ftp)], 'http://google.com:80'

##</code><code>##

Address:Dialup
Port:80