#!/usr/bin/perl -w

use WWW::Mechanize;

my $browser = WWW::Mechanize->new();
$browser->get("http://www.web.de/");
die $browser->responce->status_line unless $browser->success;

print $browser->content();