Missing right curly or square bracket at..

[$xNeTworKx]

Hola,

#! /usr/bin/perl

#!/usr/bin/perl -w

use strict;

sehr gut

#Deklarationen
my $dateiname="datei.pl";

my $dateiname = 'datei.pl';

my $daten=0;
my @zeilen=();
my $anzeige=0;

Einlesen

open (Datei, "<$dateiname");

open (DATEI, $dateiname) or die "Kann $dateiname nicht oeffnen, weil: $!\n";

while($daten=<Datei>) {
chomp($daten);
push(@zeilen,$daten);
close (Datei);

Ausgeben

foreach (@zeilen) {
print "$_\n";

};

Hier gehört kein ;

Ich würde das überhaupt anders machen:
local $/;
$daten = <DATEI>;
close DATEI;

print $datei;

Kann mir jemand helfen?

Du hast ein abschließendes } vergessen, wie die Fehlermeldung schon sagt, oder machst du die while Schleife nicht zu?

$xNeTworKx.