01 #!/usr/bin/perl -w
02 use strict;
03 use DateTime;
04 use Term::ANSIColor
05   qw(:constants);
06 
07 for my $zone (DateTime::TimeZone::all_names()) {
08 
09  my $from =
10    DateTime->now(
11   time_zone => $zone);
12 
13  $from->truncate(
14   to => "year");
15  my $to =
16    $from->clone()
17    ->add(months => 6);
18 
19  print "$zone: ";
20 
21  if ($to->hour() == 0) {
22   print RED, "no", RESET,
23     "\n";
24  } else {
25   print GREEN, "yes", RESET,
26     "\n";
27  }
28 }