use strict;
use warnings;

use LWP::UserAgent;
my $ua = LWP::UserAgent->new;
$ua->env_proxy;

my $req = HTTP::Request->new(GET => 'http://www.perlmonks.org');
print $ua->request($req)->as_string;