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;
}