#!/usr/bin/perl
use strict;
use warnings;

print qq~
addieren        <1>
multiplizieren  <2>
subtrahieren    <3>
dividieren      <4>
beenden         <5>
~;

my ($menu, $eins, $zwei) = 0;

while(1) {
        print "Bitte einen Menüpunkt auswählen:";
        chomp($menu = <STDIN>);
        if($menu != 5) {
                print "Bitte 2 Zahlen eingeben:";
                chomp($eins = <STDIN>);
                chomp($zwei = <STDIN>);
        } else {
                exit 0;
        }
        if($menu == 1) {
                print &rechnen($eins, $zwei, '+') . "\n";
        } elsif($menu == 2) {
                print &rechnen($eins, $zwei, '*') . "\n";
        } elsif($menu == 3) {
                print &rechnen($eins, $zwei, '-') . "\n";
        } elsif($menu == 4) {
                print &rechnen($eins, $zwei, '/') . "\n";
        }
}

sub rechnen {
        my $zahl1 = shift;
        my $zahl2 = shift;
        my $operation = shift;
        my $ergebniss;
        $operation eq "*" ? $ergebniss = $zahl1 * $zahl2 :
                $operation eq "/" ? $ergebniss = $zahl1 / $zahl2 :
                        $operation eq "-" ? $ergebniss = $zahl1 - $zahl2 :
                                $operation eq "+" ? $ergebniss = $zahl1 * $zahl2 :
                                        "";
        return $ergebniss;
}