$SubbyKey = $Registry->Open("HKEY_CLASSES_ROOT/Installer/Patches/".$key."SourceList/", {Access=> 0x20019|0x0100});
print $SubbyKey->{'PackageName'}."\n";