my @cat = DateTime::TimeZone::categories() ;
foreach (@cat) {
my @b = 	DateTime::TimeZone::names_in_category( $_ ) ;
  print "$_:\n" ;
  foreach (@b) {
    print "      $_\n" ;
  }
 etc ;
}