Select Code to Download

    push @splist, 32 for (1 .. 32);
    $tz_struct = pack("LU32PLU32PL", 0, @splist, $systime_struct,
                                        0, @splist, $systime_struct, 0
+);

                     'GetTimeZoneInformation',
                      [P],
                      N