print Win32::GetOSVersion();;
Service Pack 1 6 0 6001 2 1 0 768 1

print Win32::GetOSName();;
WinVista Service Pack 1

##</code><code>##

    OS                    ID    MAJOR   MINOR
    Win32s                 0      -       -
    Windows 95             1      4       0
    Windows 98             1      4      10
    Windows Me             1      4      90
    Windows NT 3.51        2      3      51
    Windows NT 4           2      4       0
    Windows 2000           2      5       0
    Windows XP             2      5       1
    Windows Server 2003    2      5       2
    Windows Vista          2      6       0
    Windows Server 2008    2      6       0
    Windows 7              2      6       1