#!/usr/bin/perl
use mymod;

print "Content-type:text/html\n\n";

%FORM = parseform;

$mailprog = '/usr/sbin/sendmail';
$recipient = 'nullbox@cgi101.com';
 
open (MAIL, "|$mailprog -t") or dienice("Can't access 
$mailprog!\n");
print MAIL "To: $recipient\n";
print MAIL "Reply-to: $FORM{'email'} ($FORM{'name'})\n";
print MAIL "Subject: Form Data\n\n";
foreach $key (keys(%FORM)) {
	print MAIL "$key = $FORM{$key}\n";
}
close(MAIL);

print <<EndHTML;
<h2>Thank You</h2>
Thank you for writing.  Your mail has been delivered.<p>
Return to our <a href="index.html">home page</a>.
</body></html>
EndHTML