$ perl -MTime::Piece -e '$t = Time::Piece->localtime; print $t->tzoffset . "\n"'
46800
$ perl -MTime::Piece -e '$t = Time::Piece->localtime; print $t->strftime("%z") . "\n"'
+0000