#!/usr/bin/perl

use strict;
use warnings;

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


my $cgi = CGI->new();
my @names = $cgi->param;
my %Formular = ();
$Formular{uc($_}} = $cgi->param($_} foreach (@names);

print $cgi->header('text/html'), 
       $cgi->start_html(-title => 'CGI-Feedback'), 
       $cgi->h1('Kundenerfassung comments.pl'),
       $cgi->p("<b>Kurzname</b> $Formular{KURZNAME}"),
       $cgi->p("<b>Name1</b> $Formular{NAME1}"),
       $cgi->p("<b>Name2</b> $Formular{NAME2}"),
       $cgi->p("<b>Name3</b> $Formular{NAME3}"),
       $cgi->p("<b>Stra\&szlig;e</b> $Formular{STRASSE}"),
       $cgi->p("<b>Land</b> $Formular{LAND}"),
       $cgi->p("<b>PLZ</b> $Formular{PLZ}"),
       $cgi->p("<b>Ort</b> $Formular{Ort}");
# usw.

print $cgi->end_html();