Formular-Verarbeitung funktioniert nicht

[Struppi]

use CGI::Carp qw(fatalsToBrowser warningsToBrowser);
print "Content-Type: text/html\n\n";

Wo ist das BEGIN? das war wichitg.

my $query = new CGI;
@names = $query->param;

my @names = $query->param;

my $mailtext = "";
foreach(@names) {
  $name = $_;

my $name = $_;

Wobei das umständlich ist.

foreach my $name (@names) {

my @values = "";
  my @values = $query->param($name);

Die erste Zeile kann weg.

open(MAIL,"|$Sendmail_Prog -t") || print STDERR "Mailprogramm konnte nicht gestartet werden\n";

Hier ist eine Prüfung, ob $Sendmail_Prog existiert sinnvoll, daher vor diese Zeile:

die "Sendmail existiert nicht!" unless -d $Sendmail_Prog;

Struppi.