Inhalt aus Verzeichnis in Datei schreiben

[Alltimefriend]

Hallo Leute!

Nun, ich habe ein Verzeichnis mit hunderten von Files, aus denen ich eine HTML-Linkliste machen sollte.
Da das händisch nur schwer machbar ist, möchte ich es mit einem Perl-Script lösen.

Ich hatte 2 Scripts die ich zusammenfassen wollte. Das erste liest mir das Verzeichnis ein und gibt sie normal aus (am Bildschirm). Das zweite schreibt in eine Datei.

Daraus ist das geworden:

#!/usr/bin/perl

use strict;

open(OUTFILE, ">test.html") or
              die " Datei test.html  konnte nicht geoeffnet werden:
$!\n";

$ordnername = "/home/jan/ATF-HP";
opendir(DIR, $ordnername);
@eintraege = readdir(DIR);

foreach(@eintraege) {
        print OUTFILE $_;

}
closedir(DIR);
close OUTFILE;#!/usr/bin/perl

Nun erhalte ich immer folgende Fehlermeldung:

Global symbol "$ordnername" requires explicit package name at ordner.pl line 8.
Global symbol "$ordnername" requires explicit package name at ordner.pl line 9.
Global symbol "@eintraege" requires explicit package name at ordner.pl line 10.
Global symbol "@eintraege" requires explicit package name at ordner.pl line 13.

Weiß jemand hier Rat?

Gruß, Jan aka Alltimefriend