!/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 "
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 "$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 "";