#!/usr/bin/perl

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

$title="Wetter-Bericht: Kaarst";
$url="http://wetter.msn.com/RSS.aspx?wealocations=wc:15834&weadegreetype=C&culture=de-DE";
genTable($title, $url, $temp, $morgen);

exit;

sub genTable {
my $title=shift;
my $url=shift;
my $temp=shift;
my $morgen=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'});
#wenn ich jetzt defined($description->{'description'}) eingebe zeigt er mir gar nichts mehr an

print "$item->{'title'}\n\n";
print "$item->{'description'}\n\n";
}
}