Send me some email!

Please enter your email address:

Please enter the email's subject:

Please enter the email you want to send:

#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/center($co->h1('Thanks for sending me email!')), $co->hr, $co->end_html;