#!/Perl/bin/perl.exe -w 
# einfaches Taschenrechnerprogramm

use strict;
use warnings;

print "Bitte die erste Zahle eingeben: ";

# Zahl 1
$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 eq $z1 / $z2;
}
else 
{
  print "Diese Rechenart ist mir nicht bekannt!";
  die;
  #stirb - Programmabruch
}
print "\nDie Rechnung: $z1 $ra $z2 = $erg\n";