Select Code to Download

 
print ("(\$ENV{\"OS\"}: " . ($ENV{"OS"}) . "\n");
    use Win32;
...
    );
    
    print "version: " . $id . ", " . $major . "," . $minor . "\n";

($ENV{"OS"}: Windows_NT
    GetOSName: Win2003
...
    MSWin32-x86-multi-thread
    4.0
    version: 2, 6,2

        OS                      ID    MAJOR   MINOR
    Win32s                   0      -       -
...
    Windows Server 2008 R2   2      6       1
    Windows 8                2      6       2
    Windows Server 2012      2      6       2