opendir(my $DIR, $pathToFiles) or die "Error: couldn't open dir '$pathToFiles': $!\n";

my @files = map { "$pathToFiles/$_" }         # file => path/file
    grep { -f "$pathToFiles/$_" and /\.txt$/ } # wenn datei und .txt
    readdir($DIR);
closedir($DIR);

foreach my $file (@files) {
  print "--------------------\nReading file: '$file'\n";
  open (my $FH, "<", $file) or die "Error in reading '$pathToFiles/$file': $!\n";
  print <$FH>;
  close($FH);
} # foreach