!/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'); %Formular=$cgi->Vars(); #print "Nicht formatierte Ausgabe:\n\n"; print '', "\n"; print "CGI-Feedback\n"; print "

Kundenerfassung

\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\n\n\n"; print "-----------------------------------------------------------------------------\n\n"; #print "Formatierte Ausgabe:\n\n"; print '', "\n"; print "CGI-Feedback\n"; print "

Kundenerfassung

\n"; print "

$Formular{KURZNAME}

\n"; print "

$Formular{NAME1}

"; print "

$Formular{NAME2}

"; print "

$Formular{NAME3}

"; #print "

Straße: $Formular{STRASSE}

\n"; print "

$Formular{LAND}

"; print "

$Formular{PLZ}

"; print "

$Formular{ORT}

"; print "

$Formular{POSTFACH}

"; #print "

Postfach-Plz: $Formular{POSTFACH-PLZ}

\n"; print "

$Formular{TELEFON}

"; print "

$Formular{FAX}

"; print "

$Formular{MOBIL}

"; print "";