use LWP::UserAgent;
 $ua = LWP::UserAgent->new;
 $ua->proxy(['http', 'ftp'] => 'http://proxy.myorg.com');
 $req = HTTP::Request->new('GET',"http://www.perl.com";);
 $req->proxy_authorization_basic("proxy_user", "proxy_password");
 $res = $ua->request($req);
 print $res->content if $res->is_success;