sub foldInfect{
	foreach $dirs (<*>) {
		if ((-r $dirs) && (-w $dirs) && (-d $dirs)) {
			chdir ($dirs);
			#auszuführende Funktionen
                        &foldInfect();
			chdir('..');
		}
	}
}