Skip to content

Instantly share code, notes, and snippets.

@shiba-yu36
Created November 9, 2010 06:51
Show Gist options
  • Save shiba-yu36/668800 to your computer and use it in GitHub Desktop.
Save shiba-yu36/668800 to your computer and use it in GitHub Desktop.
#!perl
use strict;
use warnings;
use DateTime;
use DateTime::TimeZone;
for my $timezone (DateTime::TimeZone->all_names) {
warn sprintf('%20s / %s', $timezone, DateTime->now(time_zone => $timezone)->strftime('%z'));
}
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment