use warnings;
use strict;
use WWW::Mechanize;
use Encode;

my $mech = WWW::Mechanize->new(agent => "NotSoForbiddenBot/0.99");
$mech->get("http://en.wikipedia.org/wiki/German_language");

# You might have to edit/detect the encode statement to
# match the document's.
print encode("UTF-8", $mech->content(format => "text"));