use WWW::Mechanize; use LWP::UserAgent; use MIME::Base64; use strict; my $url = 'http://www.google.com'; my $proxy = 'http://someproxy.com:80/'; my $alias = 'Windows IE 6'; my $username = 'user'; my $password = 'passwd'; my $mech = WWW::Mechanize->new( autocheck => 1, agent => $alias); $mech->proxy(['http', 'ftp'], $proxy); $ENV{'http_proxy'} = $proxy; my @args = ( Authorization => "Basic" . MIME::Base64::encode( $username . ":" . $password ) ); $mech->credentials( $proxy, "MOCPROXY04", $username, $password ); $mech->get( $url ); $mech->get( $url, @args ); my $response = $mech->response(); for my $key ( $response->header_field_names() ) { print $key, ":", $response->header( $key ), "\n"; }