print "Bitte die erste Zahl eingeben: ";
#Zahl1
$z1 = <STDIN>; chomp $z1;
print "\nBitte die zweite Zahl eingeben: ";
#Zahl2
$z2 = <STDIN>; chomp $z2;
print "\nBitte die Rechenart eingeben (+, -, *, /, % oder **): ";
#Rechenart
$ra = <STDIN>; chomp $ra;
if ( $ra eq '+' )
{
    $erg = $z1 + $z2;
}
elsif ( $ra eq '-' )
{
    $erg = $z1 - $z2;
}
elsif ( $ra eq '*' )
{
    $erg = $z1 * $z2;
}
elsif ( $ra eq '/' )
{
    $erg = $z1 / $z2;
}
elsif ( $ra eq '**' )
{
    $erg = $z1 ** $z2;
}
elsif ( $ra eq '%' )
{
    $erg = $z1 % $z2;
}
else
{
    print "Diese Rechenart ist mir nicht bekannt!";
    die; # stirb - Programmabruch
}
print "\nDie Rechnung: $z1 $ra $z2 = $erg\n";
<>