#!/usr/bin/perl

#Fehlerausgabe an Browser
use CGI::Carp qw(fatalsToBrowser);
require LWP::UserAgent;

print "Content-type: text/html\n\n";

my $ua = LWP::UserAgent->new;
$ua->timeout(10);
$ua->agent('Mozilla/5.0');

my $response = $ua->get('http://www.google.de');

if ($response->is_success) {
print $response->content;
}
else {
die $response->status_line;
}