use LWP::UserAgent; use HTTP::Request; use strict; my $agent=new LWP::UserAgent; $agent->proxy(http=>"http://www-ad-proxy.egtry.com:80"); my $url="http://www.google.com/"; my $request=new HTTP::Request('GET'=>$url); $request->proxy_authorization_basic("sg0123456", "password9"); my $response=$agent->request($request); if ($response->is_success) { print $response->content; } else { print $response->status_line(); }