Hola:
El código es realmente sencillo y aqui te lo presento...
Código:
open (MAIL, "|/usr/sbin/sendmail -t");
print MAIL "To: $to \n";
print MAIL "From: $from\n";
print MAIL "Subject: $subject\n";
print MAIL "Content-type: text/html\n\n";
print MAIL "<h1>Codigo HTML</h1>";
close(MAIL);
Como ves es básicamenrte el mismo código excepto por una linea.
SALUDOS