#!/usr/local/bin/perl -w
 use strict;
 use WWW::Wunderground::API;
 use DateTime;

 my $w = WWW::Wunderground::API->new(
   location => "Munich, Germany",
   api_key  => "0123456789abcdef",
   auto_api => 1,
 );

 for my $e (@{ $w->hourly }) {
   my $dt = DateTime->from_epoch(
     epoch => $e->{ FCTTIME }->{ epoch } );

   print "$dt: $e->{ pop }%\n";
 }