$ wget -O - http://www.tau.ac.il/tau.pac
--17:49:19--  http://www.tau.ac.il/tau.pac
           => `-'
Resolving www.tau.ac.il... 132.66.16.6
Connecting to www.tau.ac.il[132.66.16.6]:80... connected.
HTTP request sent, awaiting response... 200 OK
Length: 1,187 [application/x-ns-proxy-autoconfig]
 
 0% [                                     ] 0             --.--K/s    function FindProxyForURL(url, host)
    {
        if ((isInNet(myIpAddress(), "132.66.90.0", "255.255.254.0")) &&
            !dnsDomainIs(host, "www.tau.ac.il")) {
            return "PROXY proxyslb.tau.ac.il:8080; " +
                   "PROXY proxy.tau.ac.il:8080; " +
                   "PROXY netcache.tau.ac.il:8080; " +
                   "PROXY netcache2.tau.ac.il:8080; " +
                   "PROXY proxym.tau.ac.il:8080; " +
                   "PROXY 132.66.16.12:8080; " +
                   "PROXY 132.66.16.34:8080; " +
                   "PROXY 132.66.16.23:8080";
        }
        else if (isInNet(host, "132.66.58.20", "255.255.255.255")) {
            return "PROXY proxym.tau.ac.il:8080";
        }
        else if (isPlainHostName(host) ||
            isInNet(host, "127.0.0.1", "255.255.255.255") ||
            isInNet(host, "132.66.0.0", "255.254.0.0")) {
            return "DIRECT";
        }
        else {
            return "PROXY proxyslb.tau.ac.il:8080; " +
                   "PROXY proxy.tau.ac.il:8080; " +
                   "PROXY netcache.tau.ac.il:8080; " +
                   "PROXY netcache2.tau.ac.il:8080; " +
                   "PROXY proxym.tau.ac.il:8080; " +
                   "PROXY 132.66.16.12:8080; " +
                   "PROXY 132.66.16.34:8080; " +
                   "PROXY 132.66.16.23:8080";
        }
    }

##</code><code>##

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