use strict;
use LWP::UserAgent;

my $ua = LWP::UserAgent->new(env_proxy => 1,
                              keep_alive => 1,
                              timeout => 30,
                             );
my $req = HTTP::Request->new('GET', 'http://www.perl-community.de/');
my $res = $ua->request($req, '/sponsoren.html');

print $res->as_string if $res->is_success;