| Current Path : /proc/thread-self/root/usr/share/doc/perl-HTTP-ProxyAutoConfig/examples/ |
| Current File : //proc/thread-self/root/usr/share/doc/perl-HTTP-ProxyAutoConfig/examples/auto_proxy.pl |
#!/bin/sh
#-*-Perl-*-
exec perl -x $0 "$@"
#!perl
use lib ".";
use HTTP::ProxyAutoConfig;
my $pac = new HTTP::ProxyAutoConfig();
print $pac->FindProxy("https://www.yahoo.com"),"\n";
print $pac->FindProxy("ftp://ftp.redhat.com"),"\n";
print $pac->FindProxy("www.yahoo.com"),"\n";