#!/usr/bin/perl
use strict;
use warnings;
use LWP::UserAgent;
use URI;

my $url = "http://saturn.magdeburg.de/hsb/wetter.asp";

my $uri = URI->new($url);
my $ua = LWP::UserAgent->new( agent => 'varbot');
$ua->env_proxy;
my $page = $ua->get($url, Host => $uri->host );
die "Konnte $url nicht holen.\n" unless $page->is_success ; 
(my @data) = $page->content =~ m#<td class="?head.*>([.,\d\s]+ Uhr)</td></tr><tr><td class="?body"?>\s*([-.\d]+)\s*[&nbspdeg;]*C</td></tr><tr><td class="?body"?>(<?[>\s\dkmMeter]+)</td></tr><tr><td class="?body"?>([\s\dkm/h]+)</td></tr><tr><td class="?body"?>\s*([%\s\dkA\.]+)\s*</td></tr><tr><td class="?body"?>\s*([\s\dcmkA\.]+)\s*</td>#gs;
# Wenn ein Fehler auftritt, ganze Seite abspeichern
unless ( $data[0] || $data[1] || $data[2] || $data[3] || $data[4] || $data[5] ) {
    print STDERR "$page->content";
}    
print "Zeit: $data[0]\nTemperatur: $data[1] °C\nSichtweite: $data[2]\nWindgeschwindigkeit: $data[3]\nLuftfeuchtigkeit: $data[4]\nSchneehöhe: $data[5]\n" ;
