Как отослать HTML с помощю Perl-a, так чтобы когда откроется почта, там была страница HTML-a?

#smtp - здесь открытое соединение. 
#У меня это было сделано непосредственно через smtp, 
#но можно открывать сеанс с sendmail,
#и вместо datasend просто print  
#только при этом стоит почитать побольше по безопасности кода ;)
$smtp->datasend('From: $from
');
$smtp->datasend('Subject: $subject
');
$smtp->datasend('X-Mailer: MyMail v1b
');
$smtp->datasend('MIME-Version: 1.0
');
$smtp->datasend('Content-Transfer-Encoding: 8bit
');
if (length($atname) > 3) {
#если имеется этач
$smtp->datasend('Content-Type: multipart/mixed; boundary= 'My_Boundary '
 
');
} else {
 $smtp->datasend('Content-Type: text/plain; charset= 'koi8-r '
 
');
}
if (param('attach')) {
#если имеется этач
$smtp->datasend('This is a multi-part message in MIME format.
 
');
$smtp->datasend('--My_Boundary
'); #разделитель - определен в начале
$smtp->datasend('Content-Type: text/plain
 
');
}
$smtp->datasend(param('mess')); #тут тело письма
if (param('attach')) { # а тут этачмент
 $smtp->datasend('--My_Boundary
'); #разделитель - определен в начале
 $smtp->datasend('Content-Type: application/octet-stream; name= '$atname '
');
 $smtp->datasend('Content-Disposition: attachment; filename= '$atname '
');
 $smtp->datasend('Content-Transfer-Encoding: base64
 
');
 while (read(param('attach'), $buf, 60*57)) {
   $smtp->datasend(encode_base64($buf));
 }
 $smtp->datasend('
 
--My_Boundary--
 
');
}
$smtp->dataend();
$smtp->quit;