Please do not recommend random Perl scripts on the web without having verified them. The script that you recommended contains ugly errors that make it easy to send spam via the script:
...
$Email = $in{'Email'};
$Message = $in{'Message'};
...
sub SendAutoReply {
open (MAIL,"|$MailProgram -t");
print MAIL "To: $Email\n";
print MAIL "From: $YourEmail\n";
print MAIL "Subject: $Subject\n";
print MAIL "$Header\n";
print MAIL "$Date\n\n";
print MAIL "$Subject\n\n";
print MAIL "You sent the following:\n\n";
print MAIL "==============================\n\n";
print MAIL "Name: $Name\n";
print MAIL "Email: $Email\n\n";
print MAIL "Message:\n\n";
print MAIL "$Message\n\n";
print MAIL "==============================\n\n";
print MAIL "$TailMessage\n\n";
print MAIL "Best regards,\n\n\n";
print MAIL "$Signature1\n";
print MAIL "$Signature2\n\n";
close (MAIL);
}
If $Email contains a newline, you can spam any address through this form (and it is nowhere verified that $Email doesn't contain a newline and more data). Of course, there will be some fluff data trailing the spammers message, but if the spammer cared, he would have a different profession.
Update: Finished incomplete sentence about verification of $Email |