1.) Frag opendir() doch einfach: opendir (DIR, $dir) or die $!

2.) Ach ja: Wieso heisst das Verzeichnis, das du oeffnest jetzt 'pwd'? Ich dachte, du wolltest das aktuelle Verzeichnis oeffnen?

3.) Waere es dann nicht einfacher, opendir (DIR, '.') zu nehmen, d.h. Punkt fuer das aktuelle Verzeichnis? (Portabel zwischen Windows und Unix/Linux ist das auch.)

4.) Man koennte auch my @files = glob('*') oder my @files = glob('* .*') nehmen.