print LOGFILE "listing des verz. $datenDir\n"; my @dateiliste = `ls $datenDir/*.xml`; my $s = @dateiliste; print LOGFILE "$s Dateien im verz. $datenDir\n";