https://rt.cpan.org/Ticket/Display.html?id=75046 This entry is just thinking note. use strict; use warnings; use utf8; use Time::Piece; $ENV{TZ} = 'JST-9'; print gmtime(1363791599)->strftime('%Y-%m-%dT%H:%M:%S%z'), "\n"; print localtime(1363791599)->strftime('%Y-%m-%dT%H:%M:%S%z'), "\n"; â 2013-03-20T14:59:59+0900 2013-03-20T23:59:59+0900 OMG!!!! Why? sub strftime { my $time = shift; my $tzname =
{{#tags}}- {{label}}
{{/tags}}