use Win32::TieRegistry;
$Registry->Delimiter("/");

my $entries = $Registry->{"LMachine/System/CurrentControlSet/Control/TimeZoneInformation/"};
print $entries->{'/DaylightName'};