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