Premature end of script headers

[Christian Kruse]

Hallo Philipp,

Ich nehme an, dass dir -w irgendwelche Fehler gibt. Folgendes hab
ich beim überfliegen des Sources festgestellt:

my $Dateiname = $Datei[$#Datei]; #ermittelt letztes element

das letzte Element hat den Index (scalar(@Datei)-1), nicht $#Datei.

Du haettest 'perldoc perldata' aufmerksamer lesen sollen. $#array
bezeichnet den Index des letzten Elements und ist -1, wenn der Array
leer ist.

Gruesse,
 CK