ActiveState/
Adobe/
Apple Computer, Inc./
ArcSoft/
C07ft5Y/
Classes/
Clients/
DataDirect/
Documentum/
Gemplus/
IDM Computer Solutions, Inc./
InstalledOptions/
InstallShield/
Intel/
JavaSoft/
L&H/
Licenses/
Microsoft/
Netscape/
Nikon/
NVIDIA Corporation/
ODBC/
Perl/
pixology/
PlaceWare/
Policies/
Program Groups/
Reflectent/
Schlumberger/
Secure/
SYBASE/
Symantec/
VisionShape/
VMware, Inc./
Wilson WindowWare/
Windows 3.1 Migration Status/
Description/

##</code><code>##

use strict;
use Win32::Registry;
my $Key;
if ($HKEY_LOCAL_MACHINE->Open("Software\\Microsoft\\Windows\\CurrentVe
+rsion\\Uninstall", $Key))
{
    print "\nDone1\n";
    my %ValueList;
    $Key->GetValues(\ %ValueList); # nothing happens here!
    for my $item (keys(%ValueList)) # nor here
    {
        print "\nDone2 $item\n"; 
        print "$item : $ValueList{$item}[2]\n";
    }
    print $Key->{DisplayName}."\n"; 
    $Key->Close();
}