use LWP::UserAgent;
$ua = LWP::UserAgent->new;
$ua->proxy('http', 'http://my.proxy:8000/');
$request = HTTP::Request->new('GET', 'http://www.perlmonks.org');
$response = $ua->request($request);

$bob = $response->as_string();

print "$bob \n";