formato para enviar correos

#----------------------------------------------------------
# Envia el correo con información de la persona a contactar.
open(MAIL,"|$mailprog $para $cc") || die "No pudo abrir $mailprog!\n";
print MAIL "To: $para\n";
print MAIL "From: $de\n";
print MAIL "Content-Type: text/html; charset=\"iso-8859-1\"\n\n";
print MAIL "Content-Transfer-Encoding: quoted-printable\n\n";

print MAIL "Subject: $asunto\n";
print MAIL "-----------------------------------------------------------\n\n";
print MAIL "Correo electrónico: $email\n";
print MAIL "Asunto: $asunto\n";
print MAIL "Content-Type: text/html\n\n";
print MAIL "El mensaje es el siguiente: \n\n$mensaje\n\n";

#print MAIL "Content-Type: text/html; charset=\"iso-8859-1\"\n";
#print MAIL "Content-Transfer-Encoding: 8 bit\n";
#print MAIL "Content-Transfer-Encoding: quoted-printable\n";
print MAIL "Cc: $cc\n\n";
print MAIL "Bcc: $cco\n\n";
print MAIL "-----------------------------------------------------------\n\n";
close (MAIL);
         


#----------------------------------------------------------