elsif (-d "$ordner/$datei") {
#                       print "Befinde mich im Unterverzeichnis $ordner/$datei \n";
#                       print "Habe ein Unterverzeichnis $ordner/$datei gefunden rufe die Funktion rekursiv auf \n";
#                       unlink("$ordner/$datei") or warn "$!";
#                       print "Funktion rekursiv aufgerufen lösche alle Dateien im Unterverzeichnis $ordner/$datei \n";
#                       &loesche($ordner);