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";