Zeilen aus txt auslesen/Verzeichnis prüfen/txt schreiben

[MS]

Hier das Programm:

open (DATEI, "<datei.txt");
@datei = <DATEI>;
close (DATEI);
open (DATEINEU, ">ergebnis.txt");
foreach (@datei)
{
        chomp ($_);
        if (-e $_)
        {
                print DATEINEU "Datei $_ gefunden.\n";
        }
        else
        {
                print DATEINEU "Datei $_ nicht gefunden.\n";
        }
}
close (DATEINEU);