#!/usr/bin/perl

use CGI;

my $query = new CGI;

print $query->header ( );

my $comments = $query->param("comments");

open ( MAIL, "| /usr/sbin/sendmail -t" );
print MAIL "To: melissa\@secretemail.com\n";
print MAIL "Subject: Form Submission\n\n";
print MAIL "$comments\n";
print MAIL "\n.\n";
close ( MAIL );

# barf out html message

print <<END_HTML;

<html>

<p>thanks! This is what you sent me:</p>

$comments

</html>

END_HTML