typedef struct _TIME_ZONE_INFORMATION { 
    LONG       Bias; 
    WCHAR      StandardName[ 32 ]; 
    SYSTEMTIME StandardDate; 
    LONG       StandardBias; 
    WCHAR      DaylightName[ 32 ]; 
    SYSTEMTIME DaylightDate; 
    LONG       DaylightBias; 
} TIME_ZONE_INFORMATION, *PTIME_ZONE_INFORMATION; 

##</code><code>##

$tz_struct = pack("LU32S8LU32S8L", 0, " " x 32, 
    unpack("S8",$systime_struct),0, " " x 32, 
    unpack("S8",$systime_struct),0);