Fehlermeldung in Perl

[mabck]

Hallo und guten Morgen,

habe da ein Felher im Skript aber ic hweiß nicht wo ich den beheben muss... kann mir denn da einer Helfen ? Habe die Antwort auch schon bekommen steht ganz unten nur ich weiß nicht wo ich das anwenden muss......

Gruß mabck
______________________________

Hier kommt das Skript:
_____________________________

#!/usr/bin/perl -w

$menue = <<HERE_MENUE;

Multiplizieren <1>
Addieren <2>
Subtrahieren <3>
Dividieren <4>
Beenden <5>

HERE_MENUE

$eingabe = 0;
$wert1 = 0;
$wert2 = 0;
$multi = 0;
$add = 0;
$subtra = 0;
$divid = 0;

do
{

print $menue;
chomp ($eingabe = <STDIN> );

WECHSEL:

{
$eingabe == 1 && do {print "Bitte geben Sie den 1ten Wert ein:\n";
chomp ($wert1 = <STDIN> );
$eingabe == {print "Bitte geben Sie den 2ten Wert ein:\n";
chomp ($wert2 = <STDIN> );
$multi = $wert1 * wert2;
print "\nErgebnis der Multiplikation: $multi\n";
last WECHSEL;};

$eingabe == 2 && do {print "Bitte geben Sie den 1ten Wert ein:\n";
chomp ($wert1 = <STDIN> );
$eingabe == {print "Bitte geben Sie den 2ten Wert ein:\n";
chomp ($wert2 = <STDIN> );
$add = $wert1 + wert2;
print "\nErgebnis der Addition: $add\n";
last WECHSEL;};

$eingabe == 3 && do {print "Bitte geben Sie den 1ten Wert ein:\n";
chomp ($wert1 = <STDIN> );
$eingabe == {print "Bitte geben Sie den 2ten Wert ein:\n";
chomp ($wert2 = <STDIN> );
$subtra = $wert1 - wert2;
print "\nErgebnis der Subtraktion: $subtra\n";
last WECHSEL;};

$eingabe == 4 && do {print "Bitte geben Sie den 1ten Wert ein:\n";
chomp ($wert1 = <STDIN> );
$eingabe == {print "Bitte geben Sie den 2ten Wert ein:\n";
chomp ($wert2 = <STDIN> );
$divid = $wert1 / wert2;
print "\nErgebnis der Division: $divid\n";
last WECHSEL;};

$eingabe == 5 && do {print "Skript beenden\n";
last WECHSEL;};
}

} while ($eingabe !=5);

______________________________

Ende das Skript:
_____________________________

Hier kommt mal was er dann an der Fehlermeldung bring :

Sybtax error C:\3.pl line 38, near " chomp "

Sybtax error C:\3.pl line 46, near " chomp "

Sybtax error C:\3.pl line 54, near " chomp "

Sybtax error C:\3.pl line 62, near " chomp "

Missing right curly or aquare bracket at c:\3.pl line 71, at end of line Execution of C:\3.pl aborted due to compilation erros

Das habe ich jetzt von einem bekommen :-(( Aber ich weiß nicht was ich da machen muss.....

guck Dir mal die Zeilen überm chomp an - da fehlt jeweils die }...