use Net::HTTP;
 my $s = Net::HTTP->new(Host => "www.perl.com") || die $@;
 $s->write_request(GET => "/", 'User-Agent' => "Mozilla/5.0");
 my($code, $mess, %h) = $s->read_response_headers;

 while (1) {
    my $buf;
    my $n = $s->read_entity_body($buf, 1024);
    die "read failed: $!" unless defined $n;
    last unless $n;
    print $buf;
 }

use LWP::UserAgent;
use CGI;
$cgi = new CGI;
$url = 'http://www.google.de/index.html';
$ua = LWP::UserAgent->new;
$request = HTTP::Request->new('GET',$url);
$res = $ua->request($request);

print $cgi->header(),
      $res->content();