if (length($zahl1) and length($zahl2) and length($operator)) {
  $ergebnis = 'NaN';

  # berechne je nach Operator
  $ergebnis = $zahl1 * $zahl2 if $operator eq '+';
  $ergebnis = $zahl1 * $zahl2 if $operator eq '-';
  $ergebnis = $zahl1 * $zahl2 if $operator eq '*';
  $ergebnis = $zahl1 * $zahl2 if $operator eq '/';
  $ergebnis = $zahl1 * $zahl2 if $operator eq '%';
  $ergebnis = $zahl1 * $zahl2 if $operator eq '**';

  print "<p>Das Ergebnis von $zahl1 $operator $zahl2 ist $ergebnis</p>";