#!/usr/bin/perl -w
# Formular.pl sends a formated email with formular input (independend of number of fields)
# 25.08.03 (spr)
use strict;
use CGI::Carp qw(fatalsToBrowser);
# Input and format
use CGI;
my $cgi = CGI->new();
my %Formular = $cgi->Vars();
# Output
# HTML-output
my $test = 1;
if( $test != 0) {
# for testing
print "Content-type: text/html\n\n";
print '', "\n";
print "CGI-Feedback\n";
print "Resultate von Formular.pl
\n";
print "Übertragene Daten:
";
while (($Name, $Wert) = each(%Formular)) {
print "Das Formularfeld $Name besitzt den Wert $Wert.
\n";
}
print "\n";
}