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

For more information, see Win32::TieRegistry.

        - tye (but my friends call me "Tye")