#!/usr/bin/perl -w
print "Content-type: text/html\n\n";
#$title='Perl Mail demo';
$to='newaddress@mydomain.com';
$from= 'newfrom@anotherdomain.com';
$subject='newsubject';
$body='This is a test';
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 "$body\n";
$body = substr($body,0,500);
close(MAIL);
print "$title\n\n\n";
## HTML content sent, let use know we sent an email
print "$title
A message has been sent from $from to
$to
";