C:\test>perl -MWin32 -E" say Win32::GetOSName()"
WinVistaService Pack 1

C:\test>perl -E" say Win32::GetOSVersion()"
Service Pack 16060012107681