#!/usr/bin/perl
use strict;
use warnings;
use CGI;
use CGI::Carp qw(fatalsToBrowser);
my ($Feld, $Name, $Wert);
my %Formular;
my $cgi=CGI->new();
print $cgi->header(-type=>'text/html');
%Formular=$cgi->Vars();
#read(STDIN, my $Daten, $ENV{'CONTENT_LENGTH'});
#my @Formularfelder = split(/&/, $Daten);
#my ($Feld, $Name, $Wert);
#my %Formular;
#foreach $Feld (@Formularfelder) {
# (my $Name, my $Wert) = split(/=/, $Feld);
# $Wert =~ tr/+/ /;
# $Wert =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
# $Wert =~ s//>/g;
# $Formular{$Name} = $Wert;
# }
print "Content-type: text/html\n\n";
print '', "\n";
print "CGI-Feedback\n";
print "Kundenerfassung comments.pl
\n";
print "Kurzname: $Formular{KURZNAME}
\n";
print "Name1: $Formular{NAME1}
\n";
print "Name2: $Formular{NAME2}
\n";
print "Name3: $Formular{NAME3}
\n";
#print "Straße: $Formular{STRASSE}
\n";
print "Land: $Formular{LAND}
\n";
print "PLZ: $Formular{PLZ}
\n";
print "Ort: $Formular{ORT}
\n";
print "Postfach: $Formular{POSTFACH}
\n";
#print "Postfach-Plz: $Formular{POSTFACH-PLZ}
\n";
print "Telefon: $Formular{TELEFON}
\n";
print "Fax: $Formular{FAX}
\n";
print "Mobil: $Formular{MOBIL}
\n";
print "\n";