my $startVerzeichnis = "/home1";
my $tiefe = 3;

rek($startVerzeichnis, $tiefe);

sub rek {
        
        my $verzeichnis = shift;
        my $tiefe = shift;

        if($tiefe==0){
                print "\ntiefe==0!!";
                return;
        }
        
        opendir(VERZEICHNIS, $verzeichnis);
        @unterVerz = readdir(VERZEICHNIS); 
        foreach(@unterVerz){
                if(!($_ eq ".") && !($_ eq "..")){
                        
                        #Pfad erstellen mit Unterverzeichnis/Datei ergänzt...
                        my $verzeichnisNeu = $verzeichnis . "/" . $_;   
                        
                        #Falls Verzeichnis
                        if(-d $verzeichnisNeu){
                                rek($verzeichnisNeu, $tiefe-1);
                        }
                }
        }
        #close VERZEICHNIS;
}