#!/usr/bin/perl use strict; use warnings; use CGI; use CGI::Carp qw(fatalsToBrowser); my $cgi = CGI->new(); my @names = $cgi->param; my %Formular = (); $Formular{uc($_}} = $cgi->param($_} foreach (@names); print $cgi->header('text/html'); print qq~ CGI-Feedback

Kundenerfassungcomments.pl

Kurzname: $Formular{KURZNAME}

Name1: $Formular{NAME1}

Name2: $Formular{NAME2}

Name3: $Formular{NAME3}

Straße: $Formular{STRASSE}

Land: $Formular{LAND}

PLZ: $Formular{PLZ}

Ort: $Formular{ORT}

Postfach: $Formular{POSTFACH}

Postfach-Plz: $Formular{POSTFACH-PLZ}

Telefon: $Formular{TELEFON}

Fax: $Formular{FAX}

Mobil: $Formular{MOBIL}

~;