Windows 10 time zones

Windows time zones

#!perl
use v5.10;
use strict;

use POSIX;

my @zones = sort map { chomp; $_ } grep { /Time$/ } qx( tzutil /l );

my @new;
foreach my $zone ( @zones ) {
	system( qq(tzutil /s "$zone") );
  # separate process because calling localtime may set the TZ and then never change it
	my $posix = qx( $^X -MPOSIX -le "print POSIX::strftime( '%Z', localtime )" );
	push @new, chomp( $posix );
	}
	
my %zones = map { $_ => 1 } ( @zones, @new );
@zones = sort keys %zones;

say join "\n", @zones;


__END__
AUS Central Standard Time
AUS Eastern Standard Time
Afghanistan Standard Time
Alaskan Daylight Time
Alaskan Standard Time
Aleutian Daylight Time
Aleutian Standard Time
Altai Standard Time
Arab Standard Time
Arabian Standard Time
Arabic Standard Time
Argentina Standard Time
Astrakhan Standard Time
Atlantic Daylight Time
Atlantic Standard Time
Aus Central W. Standard Time
Azerbaijan Standard Time
Azores Daylight Time
Azores Standard Time
Bahia Standard Time
Bangladesh Standard Time
Belarus Standard Time
Bougainville Standard Time
Cabo Verde Standard Time
Canada Central Standard Time
Cape Verde Standard Time
Caucasus Standard Time
Cen. Australia Standard Time
Central America Standard Time
Central Asia Standard Time
Central Brazilian Standard Time
Central Daylight Time
Central Europe Daylight Time
Central Europe Standard Time
Central European Daylight Time
Central European Standard Time
Central Pacific Standard Time
Central Standard Time
Chatham Islands Standard Time
China Standard Time
Cuba Daylight Time
Cuba Standard Time
Dateline Standard Time
E. Africa Standard Time
E. Australia Standard Time
E. Europe Daylight Time
E. Europe Standard Time
E. South America Standard Time
Easter Island Standard Time
Eastern Daylight Time
Eastern Standard Time
Egypt Standard Time
Ekaterinburg Standard Time
FLE Daylight Time
FLE Standard Time
Fiji Standard Time
GMT Daylight Time
GMT Standard Time
GTB Daylight Time
GTB Standard Time
Georgian Standard Time
Greenland Daylight Time
Greenland Standard Time
Greenwich Standard Time
Haiti Daylight Time
Haiti Standard Time
Hawaiian Standard Time
India Standard Time
Iran Daylight Time
Iran Standard Time
Israel Standard Time
Jerusalem Daylight Time
Jordan Daylight Time
Jordan Standard Time
Kaliningrad Standard Time
Korea Standard Time
Libya Standard Time
Line Islands Standard Time
Lord Howe Standard Time
Magadan Standard Time
Magallanes Standard Time
Malay Peninsula Standard Time
Marquesas Standard Time
Mauritius Standard Time
Middle East Daylight Time
Middle East Standard Time
Montevideo Standard Time
Morocco Daylight Time
Morocco Standard Time
Mountain Daylight Time
Mountain Standard Time
Myanmar Standard Time
N. Central Asia Standard Time
Namibia Standard Time
Nepal Standard Time
New Zealand Standard Time
Newfoundland Daylight Time
Newfoundland Standard Time
Norfolk Standard Time
North Asia East Standard Time
North Asia Standard Time
North Korea Standard Time
Novosibirsk Standard Time
Omsk Standard Time
Pacific Daylight Time
Pacific SA Standard Time
Pacific Standard Time
Pakistan Standard Time
Paraguay Standard Time
Qyzylorda Standard Time
Romance Daylight Time
Romance Standard Time
Russia TZ 1 Standard Time
Russia TZ 2 Standard Time
Russia TZ 4 Standard Time
Russia TZ 6 Standard Time
Russia TZ 7 Standard Time
Russia TZ 8 Standard Time
Russia TZ 9 Standard Time
Russian Standard Time
SA Eastern Standard Time
SA Pacific Standard Time
SA Western Standard Time
SE Asia Standard Time
Saint Pierre Daylight Time
Saint Pierre Standard Time
Sakhalin Standard Time
Samoa Standard Time
Sao Tome Standard Time
Saratov Standard Time
Singapore Standard Time
South Africa Standard Time
South Sudan Standard Time
Sri Lanka Standard Time
Sudan Standard Time
Syria Daylight Time
Syria Standard Time
Taipei Standard Time
Tasmania Standard Time
Tocantins Standard Time
Tokyo Standard Time
Tomsk Standard Time
Tonga Standard Time
Transbaikal Standard Time
Turkey Standard Time
Turks And Caicos Standard Time
Turks and Caicos Daylight Time
US Eastern Daylight Time
US Eastern Standard Time
US Mountain Standard Time
Ulaanbaatar Standard Time
Venezuela Standard Time
Vladivostok Standard Time
Volgograd Standard Time
W. Australia Standard Time
W. Central Africa Standard Time
W. Europe Daylight Time
W. Europe Standard Time
W. Mongolia Standard Time
West Asia Standard Time
West Bank Gaza Daylight Time
West Bank Standard Time
West Pacific Standard Time
Yakutsk Standard Time
Yukon Standard Time