# ein verzeichnis in perl öffnen
open my $dir, "pfad" or die $!;

# ein verzeichnis iterativ auslesen
while (my $file = readdir $dir) {
    print "File $dir/$file\n";
}