#!/usr/bin/perl -w 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'); my %Formular = $cgi->Vars(); 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";