Hi,
Ich hoffe jemand kann mir sagen was ich noch wo ergänzen sollte.
eine fertige Lösung? Danach fragst Du hier vergebens - entweder schaffst Du es mit unserer Hilfe eigenständig, oder Du schaffst es nicht.
Was ich Dir sagen kann ist, dass Du dringend grundlegende Perl-Kenntnisse erwerben solltest. Dein Script sollte mit
#!/usr/bin/perl -w
use strict;
beginnen und im folgenden Zeilen wie
use Net::SMTP; # anstatt $sendmail
use CGI; # anstatt dieser besch***rten read(STDIN,...-Geschichte
beinhalten - siehe die entsprechenden Seiten der Dokumentation. Desweiteren brauchst Du noch 'my' und 'if'.
Falls Du die Doku noch nicht kennen solltest: Beginne mit
perldoc perl
perldoc perlfaq
perldoc perlstyle
und anschließend
perldoc -f my
perldoc CGI
perldoc Net::SMTP
Cheatah