#!/usr/bin/perl

use strict;
use warnings;

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


my @names = param;
my %Formular = ();
$Formular{uc($_)} = param($_) foreach (@names);

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