#!/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(http => 'http://proxy.whateverisp.com:8001');
$browser->proxy(ftp => 'http://proxy.whateverisp.com:2101');