use strict;
use warnings;
require LWP::UserAgent;

my $ua = LWP::UserAgent->new;
$ENV{HTTP_proxy_pass}='xxxxxxxx';
$ua->env_proxy();
my $URL="http://www.dlugosz.com";
my $request = HTTP::Request->new('GET', $URL);
my $response = $ua->request($request);
print "Code: ", $response->code(), ".\n";
print "Content type: ", $response->headers()->content_type(), ".\n";
print $response->content();