use strict;
use warnings;

use LWP::UserAgent;
my $content;
my $ua = new LWP::UserAgent;

$ua->proxy(['http'], 'http://my_username:my_pwd@proxy.mycompany.intranet/autoproxy:8080/');  
$ua->agent("Mozilla/6.0");
my $req = new HTTP::Request(GET => 'http://www.perlmonks.com/');
my $res = $ua->request($req); 
print $res->content if ($res->is_success);

##</code><code>##

use strict;
use warnings;

use LWP::UserAgent;
my $content;
my $ua = new LWP::UserAgent; 
$ua->env_proxy();
$ua->agent("Mozilla/6.0");
my $req = new HTTP::Request(GET => 'http://www.perlmonks.com/');
my $res = $ua->request($req); 
print $res->content if ($res->is_success);

##</code><code>##

function FindProxyForURL (url, host)
{
  if (
     shExpMatch (host, "127.0.0.1") ||
     isPlainHostName(host) ||
     dnsDomainIs(host,"mycompany.intranet") ||
     shExpMatch(host,"xy.xyz.*") ||
     )
     return "DIRECT";

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