if (-f $datei) { print $datei." ist eine Datei\n";}