Help for this page
if ($MailTo !~ /\@*\./) { #set a kill flag #print a message }
use Net::SMTP; use CGI ':standard'; ... print "</body>\n </html>";