= $res->{boxNow}->{rain} =~ m|Niederschlag: (.+)Wind: (.+)|;
$weather = decode( "utf8", $weather );
+# debug
+if (0) {
+ say 'Wetter in Obsteig (von wetter.at)';
+ say '---------------------------------';
+ say "Datum:\t$date";
+ say "Zeit:\t$time";
+ say "Sonne↑:\t$sunup";
+ say "Sonne↓:\t$sundown";
+ say "Temp:\t$temp°C";
+ say "Nied.:\t$rain";
+ say "Wind:\t$wind";
+ say "Wetter:\t$weather";
+ say "Bewölk:\t$clouds%";
+ say '';
+}
-say 'Wetter in Obsteig (von wetter.at)';
-say '---------------------------------';
-say "Datum:\t$date";
-say "Zeit:\t$time";
-say "Sonne↑:\t$sunup";
-say "Sonne↓:\t$sundown";
-say "Temp:\t$temp°C";
-say "Nied.:\t$rain";
-say "Wind:\t$wind";
-say "Wetter:\t$weather";
-say "Bewölk:\t$clouds%";
-
-say '';
say "$date;$time;$sunup;$sundown;$temp;$rain;$wind;$weather;$clouds";
__END__