print ("(\$ENV{\"OS\"}: " . ($ENV{"OS"}) . "\n");
	use Win32;
	print "GetOSName: " . Win32::GetOSName() . "\n";
	use Config;
	print "$Config{osname}\n";
	print "$Config{archname}\n";
	print "$Config{osvers}\n";
	my ($name, $major, $minor, $build, $id) = Win32::GetOSVersion();
	my %versions = (
	0 => {'' => {'' => "Win32s"}},
	1 => {
		4 => {
			0  => "Windows 95",
			10 => "Windows 98",
			90 => "Windows Me"
		}
	},
	2 => {
		3 => {51 => "Windows NT 3.51"},
		4 => {0  => "Windows NT 4"},
		5 => {
			0 => "Windows 2000",
			1 => "Windows XP",
			2 => "Windows Server 2003"
		},
		6 => {
			0 => "Windows Vista or Server 2008",
			1 => "Windows 7"
		}
	},
	);
	
	print "version: " . $id . ", " . $major . "," . $minor . "\n";

##</code><code>##

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

##</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 Server 2003 R2   2      5       2
    Windows Home Server      2      5       2

    Windows Vista            2      6       0
    Windows Server 2008      2      6       0
    Windows 7                2      6       1
    Windows Server 2008 R2   2      6       1
    Windows 8                2      6       2
    Windows Server 2012      2      6       2