Ich meine weiterhin, dass der Fehler weiter oben ist.
Moep irrt sich, wenn er/sie meint, dass dann auch weiter oben eine Fehlermeldung auftauchen müsste. Ich kann das gerne etwas verständlicher machen.
Wenn beispielsweise die siebte Zeile des Skriptes versehentlich so lautet:
my $dir = '/path/to/destination_directory/";
dann fängt für Perl in der siebten Zeile ein einfach gequoteter Text an, der erst in der Zeile 18 wieder endet, und zwar genau vor DATA, denn da ist das nächste einfache Anführungszeichen:
$entry = 'DATA' . $entry unless($entry =~ /^DATA/);
Und die Fehlermeldung hierbei lautet:
Bad name after DATA' at delme.pl line 18.
Na sowas! Und das ganz ohne Fehlermeldung in Zeile 7 ...
dassmansowasauchimmerwiederauseinanderklamuesernmussdasistdochoffensichtlichgrummelgrummel