#!/usr/bin/perl

$from="don\@canzona.com";
$to="don\@canzona.com";
$subject="I\'m sending myself a test e-mail!";
$sendmailpath="/usr/sbin/sendmail";

if (open (SENDMAIL, "| $sendmailpath -t"))
{
  print SENDMAIL "Subject: $subject\n";
  print SENDMAIL "From: $from\n";
  print SENDMAIL "To: $to\n";
  print SENDMAIL "This is a test e-mail.\n\n";
  close (SENDMAIL);

  print "Content-type: text/html \n\n";
  print "Subject: $subject\n";
  print "<BR>";
  print "From: $from\n";
  print "<BR>";
  print "To: $to\n";
  print "<BR>";
  print "This is a test e-mail.\n\n";
  print "<BR>";
  print "e-mail sent.\n";
}
exit;