Select Code to Download

use strict;
use warnings;
...
my $req = new HTTP::Request(GET => 'http://www.perlmonks.com/');
my $res = $ua->request($req); 
print $res->content if ($res->is_success);

use strict;
use warnings;
...
my $req = new HTTP::Request(GET => 'http://www.perlmonks.com/');
my $res = $ua->request($req); 
print $res->content if ($res->is_success);

function FindProxyForURL (url, host)
{
...

  return "PROXY proxy.mycompany.intranet:8080";
}