perl -MWin32::TieRegistry=Delimiter,/ -e "print $Registry->{'LMachine/Software/Microsoft/Windows/CurrentVersion//ProductName'}"
Microsoft Windows 87