-
- return ($dw,$mo,$mo_num,$da,$ti,$yr);
+
+ my $offset = timegm(00, $min, $hr, $da, $mo_num-1, $yr-1900)-$unixtime;
+ my $utc_offset = sprintf("%+03d", int($offset / 3600)).sprintf("%02d", ($offset % 3600)/60) ;
+
+ return ($dw,$mo,$mo_num,$da,$ti,$yr,$utc_offset);