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