Hallo,
ich habe die nächste Aufgabe gemacht und wieder einen Fehler :-((((

Also ich möchte DM in Euro und Euro in DM umwandeln mit Auswahlmöglichkeit.
Einzeln habe ich die Scripte fertig und sie funktionieren auch.
Jetzt habe ich versucht die beiden Scripte zusammen zufügen mit Auswahlmöglichkeit.
Aber das ist ein Fehler drin. Kann mir bitte jemand helfen und sagen was ich falsch gemacht habe?
Vielen Dank :-)

Hier das Scipt:
#!/usr/bin/perl

use strict;
use warnings;

print "Geben Sie den umzurechnenden Betrag ein:\n";

my $kurs_euro = 1.95583; #1 euro ~ 1.98 DM
my $kurs_dm = 0.51129; #1 DM ~ 0.52 Euro

my $eingabe = 1|2|3;

print "1 fuer Euro in DM oder 2 fuer DM in Euro \n" ;
print "Ihre Auswahl?\n";

if ($eingabe == 1)
{
print "euro in DM";

my $euro = <STDIN>;
chomp $euro;
my $dm = $kurs_dm * $euro;
$dm = sprintf "%.2f",$dm;
$dm =~ tr/./,/;
print "DM-Preis: $dm";
}
elsif ($eingabe == 2)
{
print "DM in Euro";

print "DM-Preis: ";
my $DM = <STDIN>;
chomp $DM;
my $Euro = $kurs_dm * $DM;
$DM = sprintf "%.2f",$Euro;
$DM =~ tr/./,/;
print "Euro-Preis: $DM";
}

elsif ($eingabe == 3)
{
print "Die Wahlmöglichkeit '3' existiert nicht.\n";
}