my $directory="/Perl/BugFiles";
opendir(RDIR, $directory) or die "das Verzeichnis konnte nicht geöffnet werden";
my @fileList= grep(!/^\.?$/, readdir(RDIR));