use Win32::TieRegistry;

$root = $Registry -> Open ("CConfig", {Delimiter=>"/"});
$path1= $root->Path;

&func; 

sub func
{    my ($key);
    my ($dir);
    my ($path);
    
    #neue Keys im neuen Pfad einlesen !
    
    foreach $key (keys %$root)
          {      chomp($key);
            
            if ($key =~ /^(\/.*)/)
                         {    print "Werte";    }
        
             if ($key =~ /(\/)$/)
                 {      print "Schluessel: ", $key, "\n";    
                          $dir = $root -> Open ("$key");  #In den Key wechseln    
                          #$path= $dir->Path;
                          #print $path, "\n";
                         
                          #&func;       #Funktion erneut aufrufen
                      
                          #wieder eins nach oben !
                    
 
                 }
        }
}