my ($name, $major, $minor, $build, $id) = Win32::GetOSVersion();