#!/usr/bin/perl -w
use strict;
use warnings;
use diagnostics;
use WWW::Mechanize;
my $mech = WWW::Mechanize->new();
my $url = 'http://www.perl-community.de/bat/poard/latest/24h';
$mech->get($url);
my $c = $mech->content();
print length ($c) . " Byte geladen\n";
my @links = $mech->links();
foreach my $link (grep {defined $_->url() && defined $_->text()} @links) {
        print "Url:          " . $link->url() . "\n";
        print "Beschreibung: " . $link->text() . "\n";
}

18270 Byte geladen
Url:          /bat/userprefs/set_theme#quickset
Beschreibung: Font
Url:          http://wiki.perl-community.de/Wissensbasis/AllgemeinesWieFrageIchbeiPerlCommunity
Beschreibung: Wiki:Wie frage ich?
Url:          /bat/content/view/home
Beschreibung: Startseite
Url:          /bat/poard/start
Beschreibung: Forum
Url:          /bat/blog/start
Beschreibung: Blog