OS            $id  $major   $minor
     -----------------  ---  ------   ------
     MS Windows 95       1      4        0    
     MS Windows 98 SE    1      4       10    
     MS Windows ME       1      4       90    
     MS Windows NT 3.51  2      3       51    
     MS Windows NT 4.0   2      4        0    
     MS Windows 2000     2      5        0    
     MS Windows XP       2      5        1    

##</code><code>##

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