if (-d $datei) { print $datei." ist ein Verzeichnis\n";}