my $key = $Registry->{"Classes"};
recurseRegistry("Classes");


sub recurseRegistry($){
    $start = shift;
    my $key = $Registry->{$start};
    for (keys %$key) {
        if (#We've reached a leaf) {
            #Check if value matches what we're searching for, return path
        }
        elsif (#We are not at a leaf) {
            recurseRegistry("$start/$_");
        }
    }
}