($string, $major, $minor, $osbuild, $id) = Win32::GetOSVersion ();

 $os = "";
 if ($DEBUG >= 2)
 {  print "ID = $id\n"; }
 if ($id == 0)
 {  print "Unable to determine win32s!"; }

 $os = {
      1 => {
          0  => "95",
          10 => "98",
          90 => "Me"
      },
      2 => {
          0  => "2000",
          1  => "XP/.Net",
          2  => "Server 2003",
          51 => "NT3.51"
      }
  }->{$id}->{$minor};