#!/usr/bin/perl

use strict;
use warnings;
use HTTP::ProxyPAC;
use LWP::UserAgent;
use Data::Dumper::Perltidy;

my $accessor = '/root/Desktop/proxy.pac';

my $ua = LWP::UserAgent->new(timeout => 30);  
undef $ua; 

my $pac = HTTP::ProxyPAC->new($accessor);
print Dumper(
  my $res = $pac->find_proxy(
     'http://www.intra.example.com/')
);