#!/usr/bin/perl
use CGI qw/:standard/;
$to=param('to');
$from=param('from');
$fromhandle=param('fromhandle');
$subject=param('subject');
$contents=param('contents');
if (param())
{
open(MAIL, "|/usr/sbin/sendmail -t") || die "cant open";
print MAIL "To: $to \nFrom: $from ($fromhandle)\n";
print MAIL "Subject: $subject \n\n";
print MAIL "$contents\n";
close(MAIL);
print "Content-type: text/html\n\n";
print "To:$to
\n";
print "From:$from rather know as: \'$fromhandle\'
\n";
print "Subject: $subject
\n\n\n";
print "$contents";
}
else {
print "Content-type: text/html\n\n";
print <