use HTTP::ProxyPAC;
my $pac = HTTP::ProxyPAC->new('c:\perl\proxypac.pac');
my $res = $pac->find_proxy('http://esto*******tt.coml');
#print $res;
use LWP::Simple;
use LWP::UserAgent;
my $ua = LWP::UserAgent->new();
$ua->proxy('http',$res);
my $content =$ua->get('http://esto*******tt.com');
print $content->content();
exit 0;