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();
}