>perl -MWin32 -wE"if(exists $::{'Win32::'} and exists $Win32::{'GetOSName'} ) { say &{'Win32::GetOSName'}; }"
WinVistaService Pack 1

>perl -wE"if(exists $::{'Win32::'} and exists $Win32::{'GetOSName'} ) { say &{'Win32::GetOSName'}; }"

>