#!/usr/bin/perl
print "Content-type: text/html\n\n";
$title='mail test';
$to ='support@hintonwood.com';
$from= 'support@hintonwood.com';
$subject='Using Sendmail';
open(MAIL, "|/usr/sbin/sendmail -t");
## Mail Header
print MAIL "To: $to\n";
print MAIL "From: $from\n";
print MAIL "Subject: $subject\n\n";
## Mail Body
print MAIL "This is a test message from Aabaco Small Business \n";
close(MAIL);
print "$title<
/title></head>\n<body>\n\n";
## START HTML content
print "<h1>$title</h1>\n";
print "<p>A message has been sent from $from to $to";
## END HTML CONTENT
print "\n\n</body></html>";