#!usr/bin/perl-w

print <<HERE_TEXT;

addieren       <1>
multiplizieren  <2>
subtrahieren  <3>
beenden       <4>

HERE_TEXT
$ergebnis = 0;
$addieren = 0;
$multiplizieren = 0;
$subtrahieren = 0;

chomp ($eingabe = <STDIN>);
if ($eingabe = 1)
{
print "Bitte geben Sie zwei Zahlen ein:\n;
chomp ($zahlen = <STDIN>);
$addieren=$addieren;
print ("Ergebnis der Addition\n";$eingabe);
}
if ($eingabe = 2)
{
print "Bitte geben Sie zwei Zahlen ein:\n;
chomp ($zahlen = <STDIN>);
$multiplizieren=$multiplizieren;
print ("Ergebnis der Multiplikation\n",$eingabe),
}
if ($eingabe = 3)
{
print "Bitte geben Sie zwei Zahlen ein:\n;
chomp ($zahlen = <STDIN>);
$subtrahieren=$subtrahieren;
print ("Ergebnis der Subtraktion\n",$eingabe);
}
if ($eingabe = 4)
{
print "Das Skript wird beendet.\n";
}