use strict;

use LWP::UserAgent;

our $ua = LWP::UserAgent->new;
$ua->proxy('http', "http://localhost:8080");

my $url = "http://www.google.com";

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

print $response->status_line, "\n";
print $response->content, "\n";