| Refresh | Home EGTry.com

use perl to download a web page outside the corporate firewall


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();
}