#!perl

use strict;
use warnings;
use LWP::Simple;

while (1) {
   my $page = get 'http://de.weather.yahoo.com/GRXX/GRXX0024/index_c.html';

   $page
      or die "Failure: $!\n";
   
   $page =~ /Heute(?:\s*<[^>]+>)*\s*([^<]+)/i
      or die "No match\n";

   print $1, "\n";
   sleep 60 * 60;
}