sub name_of_conf {
    my ( $self, $path ) = @_;
    
    my $child = $self->{config_tree};
    for my $name ( split /\./, $path ) { $child = $child->{$name} }
    
    print "$path: $child";
    
    return $child;
}