$delimiter = $Registry->Delimiter("/");
$diskKey =$Registry->{"/LMachine/Software/Microsoft/Windows/
CurrentVersion/Uninstall"}
    or  die "Can't read Path key: $^E\n";

foreach $entry (  keys(%$diskKey)  ) {
 print "Key: $entry ";
  
    foreach $subKey (  $diskKey->SubKeyNames  ) {
    print   "subKey: $subKey";
    }
}