use Mojo::UserAgent;

my $ua = Mojo::UserAgent->new;
my $tx = $ua->get("http://de.wikipedia.org/wiki/Perl_(Programmiersprache)");
print $tx->res->dom->all_text;