#!/usr/bin/perl

use XML::RSS;
use LWP::Simple;

print " --- start ------------------\n\n\n";

$title="Tagesschau";
$url="http://www.tagesschau.de/newsticker.rdf";
genTable($title, $url);

print "\n\n\n --- ende --------------------\n";
exit;

sub genTable {
	my $title=shift;
	my $url=shift;
	$content=get($url);

	my $rss = new XML::RSS;
	$rss->parse($content);

	print "$title\n\n";

	foreach my $item (@{$rss->{'items'}}) {
		next unless defined($item->{'title'}) && defined($item->{'link'});
		print "$item->{'title'}\n$item->{'link'}\n\n\n";
	}
}