#!/usr/bin/perl
print "Content-type: text/html\n\n";
$title='Perl Mail demo';
$to='MAIL ADDRESS TO SEND TO';
$from= 'webmaster@YOURDOMAIN.COM';
$subject='YOUR SUBJECT';
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 Cyberciti.biz! You can write your
mail body text here\n";
close(MAIL);
print "$title
\n\n\n";
## HTML content let use know we sent an email
print "$title
\n";
print "A message has been sent from $from to $to";
print "\n\n";