#!/usr/bin/perl
$mailprog = '/usr/sbin/sendmail -i -t';
$to = 'e@mail.com';
$from = 'e@mail.com';
$subject = 'test html email';
# SEND THE EMAIL MESSAGE
open(MAIL,"|$mailprog");
print MAIL <<"(END MAIL HTML)";
To: $to
From: $from
Subject: $subject
Content-type: text/html
test
test HTML message.
(END MAIL HTML)
close (MAIL);
# PRINT CONFIRMATION
print <<"(END MSG HTML)";
Content-type: text/html
your message has been sent.
(END MSG HTML)