--- a/fetch_weather.pl	Mon Jun 16 01:54:56 2014 +0300
+++ b/fetch_weather.pl	Mon Jun 16 02:28:24 2014 +0300
@@ -58,8 +58,15 @@
 
 sub parse_timestamp($$)
 {
-  # XXX: A bit of a hack, but it works.
-  return Time::Piece->strptime($_[0], "%H:%M")->epoch + $_[1];
+  my ($str, $offs) = @_;
+  if ($str =~ /^(\d+):(\d+)$/)
+  {
+    return $offs + (60 * 60 * $1) + ($2 * 60);
+  }
+  else
+  {
+    return $offs;
+  }
 }