#! /usr/bin/perl $mailserv = "/usr/sbin/sendmail"; ######################################################## # usefooter when set at 1, allows you to have a # customized footer added to all messages sent with your # mailer. ######################################################## $usefooter = ""; $footer = "footer.txt"; use CGI qw(param); $to = param("to"); $from = param("from"); $subject = param("subject"); $message = param("message"); $used = param("used"); if ($used eq "") { print "Content-type: text/html\n\n"; print < Fake Mailer


From:
To:
Subject:
Message:

EndOfCoding } else { open (MAIL, "|$mailserv"); print MAIL < Message sent

Your message has been sent successfully. EndOfCoding }