Hi,
[...]
-------> E-Mail versenden:
my $from=$query->param('absendeemailadresse')
open(MAIL,"|$Sendmail_Prog -t") || print STDERR "Mailprogramm konnte nicht gestartet werden\n";
print MAIL "To: $mailto\n";
print MAIL "From: $frim\n";
print MAIL "Subject: $subject\n\n";
print MAIL "$mailtext\n";
close(MAIL);
[...]
Anstatt 'absendeemailadresse' musst du halt den Namen des Feldes im HTML-Formular angeben, in das die Mailsdresse eingetragen wird.
HTH
Margin-Auto