Send me some email
Send me some email!
Please enter your email address:
Please enter the email's subject:
Please enter the email you want to send:
Dear you:
#File: email.cgi
#!/usr/bin/perl
use CGI;
$co = new CGI;
print $co->header,
$co->start_html
(
-title=>'Email Example',
-author=>'your name',
-BGCOLOR=>'white',
-LINK=>'red'
);
if ($co->param()) {
$from = $co->param('name');
$from =~ s/@/\@/;
$subject = $co->param('subject');
$text = $co->param('text');
$text =~ s/ open(MAIL, '| /usr/lib/sendmail -t -oi');
print MAIL <
From: $from
Subject: $subject
$text
EOF
close MAIL;
}
print
$co->center($co->h1('Thanks for sending me email!')),
$co->hr,
$co->end_html;