use strict; use warnings; use CGI (); my $cgi = CGI::new; my $zahl1 = $cgi->param('Zahl1'); my $zahl2 = $cgi->param('Zahl2'); my $operator = $cgi->param('Rechenart'); my $ergebnis; print $cgi->header(); print < HTML if (length($zahl1) and length($zahl2) and length($operator)) { $ergebnis = 'NaN'; # berechne je nach Operator $ergebnis = $zahl1 * $zahl2 if $operator eq '*'; # und weitere .... wie für * nur mit anderem Operator hier einfügen print "

Das Ergebnis von $zahl1 $operator $zahl2 ist $ergebnis

"; } else { print <

Zahl 1:
Zahl 2:
Rechenart:

HTML } print < HTML