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 }