# Verzeichnis öffnen
opendir(my $dirh, $dir) || die "can't opendir $dir: $!";

my @files =       
  grep {          # Suche alle
    -f "$dir/$_"  # Einträge, die Dateien sind (Dateiflag -f)
  } 
  readdir $dirh;  # welche aus Verzeichnis gelesen werden

closedir $dirh;   # Verzeichnis schließen