supporting different timezones

This nifty little script helps me schedule work involving people across different timezones:

[marc@home ~]$ cat bin/tzlist
#!/usr/bin/perl

use strict;
# TZ files(Solaris) /usr/share/lib/zoneinfo
# TZ files(Linux) '/usr/share/zoneinfo'
my $format = '%14s%-1s';
foreach (qw(
        Singapore
        America/New_York
        America/Los_Angeles
        Japan
        Australia/Sydney
        Europe/London
)) {
        my $a = $_;
        $a =~ s/^\w+\///;
        my $arg;
        if (@ARGV) {
                $arg = "@ARGV";
        } else {
                $arg = 'now';
        }
        printf $format, "$a:\t", `TZ="$_" date -d "$arg"`;
}

output:

[marc@home ~]$ tzlist
   Singapore:   Fri Aug  5 22:56:03 SGT 2011
    New_York:   Fri Aug  5 10:56:03 EDT 2011
 Los_Angeles:   Fri Aug  5 07:56:03 PDT 2011
       Japan:   Fri Aug  5 23:56:03 JST 2011
      Sydney:   Sat Aug  6 00:56:03 EST 2011
      London:   Fri Aug  5 15:56:03 BST 2011

[marc@home ~]$ tzlist 8/13/2011 10:00 AM EDT
   Singapore:   Sat Aug 13 22:00:00 SGT 2011
    New_York:   Sat Aug 13 10:00:00 EDT 2011
 Los_Angeles:   Sat Aug 13 07:00:00 PDT 2011
       Japan:   Sat Aug 13 23:00:00 JST 2011
      Sydney:   Sun Aug 14 00:00:00 EST 2011
      London:   Sat Aug 13 15:00:00 BST 2011

Just add more timezone data if required

-m