#!/usr/bin/perl -w

use strict;
use CGI;
use CGI::Carp qw(fatalsToBrowser);

my $cgi = new CGI;
my @Feldnamen = $cgi->param();

my $wert1 = $ARGV[1];
my $wert2 = $ARGV[2];
my $ergebnis;

$ergebnis = $wert1 + $wert2;
print "\tDas Ergebnis ist: $ergebnis\n";my $wert1 = $ARGV[1];
my $wert2 = $ARGV[2];
my $ergebnis;

$ergebnis = $wert1 + $wert2;
print "\tDas Ergebnis ist: $ergebnis\n";

print $cgi->header(),
      $cgi->start_html('CGI-Feedback'),
      $cgi->h1('Taschenrechner ',$cgi->i('Dein Ergebnis:'));
      foreach my $Feld (@Feldnamen) {
        print $cgi->strong(' Ergebnis: '),
              $cgi->param($Feld), "<br>";
      }
print $cgi->end_html();