Untitled

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/$_");
                }
        }
}