WindowsのOS名の取得

　Win32モジュールのGetOSNameで取得できます。
　特殊変数$^Oよりも細かい情報が取れます。

use strict;
use Win32;

my ($name, $sp) = Win32::GetOSName();

print $^O, "\n";
print "name: $name\n";
print "sp  : $sp\n";

　OS名として次のような値が返ってきます。

WinWin32s
Win95
Win98
WinMe
WinNT3.51
WinNT4
Win2000
WinXP/.Net
Win2003
WinVista
Win2008
Win7