use HTTP::ProxyAutoConfig ;
use LWP::Simple qw(&getstore $ua);
                                                                                
my $pac = new HTTP::ProxyAutoConfig("http://www.tau.ac.il/tau.pac");
                                                                                
my $url='http://www.yahoo.com';
$ua->proxy(http => $pac->FindProxy($url));
                                                                                
my $file='test.html';
print "success" if (getstore($url, $file));