#!/usr/bin/perl
use strict;
use warnings;
use CGI;
use CGI::Carp qw(fatalsToBrowser);
use Data::Dumper;
my ($Feld, $Name, $Wert);
my %Formular = ();
my $cgi = CGI->new();
print $cgi->header(-type => 'text/html');
%Formular = $cgi->Vars();
print Dumper(\%Formular);
#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";