$build = (unpack "A4"x2, sprintf "%08X", (&Win32::GetOSVersion)[3])[1];