#!/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";
}