#!C:\perl\ -w

# -------------- Aufruf des Menüs ------------

system(cls);
print "###################################################\n";
print "\t Welcome to the first Perlscript by DuDe\n";
print "###################################################\n\n";
print "[1] Addition\n[2] Subtraktion\n[3] Division\n[4] Multiplikation\n\n";
print "Was fuer eine Rechnung wollen sie durchfuehren: ";
$art = <STDIN>;
chop $art;

# ------------- Aufforderung 2 Zahlen einzugeben ----------
print "\nEin , muss als . eingegeben werden!";
print "\nGeben sie die erste Zahl ein:\t ";
$z1 = <STDIN>;
chop $z1;
print "Geben sie die zweite Zahl ein:\t ";
$z2 = <STDIN>;
chop $z2;

# ------------- Bedingungsauswertung zur Auswahl der Rechnung ---------

$sol ="Das Ergebnis von $z1";
$sol2 ="$z2 lautet:\t";
if($art eq "1")
{
$erg = $z1 + $z2;
print "$sol + $sol2 $erg \n\n";
}
elsif($art eq "2")
{
$erg = $z1 - $z2;
print "$sol - $sol2 $erg \n\n";
}
elsif($art eq "3")
{
$erg = $z1 / $z2;
print "$sol / $sol2 $erg \n\n";
}
elsif($art eq "4")
{
$erg = $z1 * $z2;
print "$sol * $sol2 $erg \n\n";
}
else
{
print "Error! Sie haben einen nicht akzeptablen wert eingeben!";
}
system(pause);