also es gibt da ein schönes perl modul, um formulare abzuarbeiten... aber da dus immer so machst, ändern wir lieber nicht allzuviel... "don't touch a running sytsem" 
Perl
#!/usr/bin/perl
$email_prog="/usr/sbin/sendmail";
##########Daten vom Script lesen#########################
if ($ENV{'REQUEST_METHOD'} eq 'POST') {
#print "Content-type: text/html\n\n";
################Formular einlesen##########################
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
##############Split the name-value pairs####################
@pairs = split(/&/, $buffer);
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value=~ s/</\</g;
$value=~ s/>/\>/g;
$value=~ s/;/,/g;
$value=~ s/"/''/g;
$value=~ s/\n/ /g;
$value=~ s/\r//g;
$value=~ s/(015)//g;
$value=~ s/(012)//g;
$FORM{$name} = $value;
###########Feld einlesen################################
#hier hängen wir nun immer den text an eine variable an
$textstring .= $name . " = " . $FORM{$name}."\n\n";
}
}
###########Mail abschicken################################
#hier prüfen wir, an wen die mail gehen soll
#empfaenger ist der radiobutton
if ($FORM{'empfaenger'} eq 1) {
$empfaenger = "asd\@blub.de";
}else {
$empfaenger = "huhu\@muinchhause.de";
}
#nun wollen wir die mail schreiben
open(MAIL,"|$email_prog -t");
print MAIL "from: xxx\@xxx.de\n";
print MAIL "to: ".$empfaenger."\n";
print MAIL "subject: zzzzz\n\n";
print MAIL $textstring ."\n";
close(MAIL);
print "Location: http://www.yyy.de/thx.htm\n\n";es wird nun einfach geprüft, welchen wert der radiobutton hat (hier empfaenger) und dementsprechend wird der empfaenger ausgewählt... vieleicht nicht die schönste lösung, aber er sollte problemlos klappen
