use strict;
use warnings;
my $var = 42;
if ($var) {
  machwas();
}

#!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";
}

#!/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;
}

#!/usr/bin/perl

use strict;
use warnings;

my $lut = {
   1 => sub { my $sum = shift (@_) + shift (@_); return $sum },
   2 => sub { my $mul = shift (@_) * shift (@_); return $mul },
   3 => sub { my $sub = shift (@_) - shift (@_); return $sub },
   4 => sub { my $div = shift (@_) / shift (@_); return $div },
};

my ($menu, $i, $j); 

while(1) {

   print q'
   Bitte einen Menüpunkt auswählen:
   addieren        <1>
   multiplizieren  <2>
   subtrahieren    <3>
   dividieren      <4>
   beenden         <5>    (oder sonst irgendwas)
   
   ';
   
   chomp($menu = <STDIN>);
   die "Programm wird beendet ...\n"
      unless exists $lut->{$menu};
      
   print "Bitte 2 Zahlen eingeben (hintereinander): ";
   $i = <STDIN>;
   ($i, $j) = $i =~ /^(\d+\.?\d*)\D+(\d+\.?\d*)$/ 
      or die "Das waren keine zwei Zahlen ...\n";

   print "Ergebnis: ", $lut->{$menu}($i, $j), "\n";
}