in reply to content of an email

Howdy! 

$sender=new Mail::Sender
{smtp=>'155.142.124.145', from=>'test@yahoo.com'};
$sender->OpenMultipart({to=>'test1@hotmail.com',subject=>"This is a te
+st!"});
$sender->Part({ctype=>'text/html',disposition=>'None',encoding=>'quote
+d-printable'});        
$msg=qq (<html><body><br><table border=2 width=100>
<tr><td colspan=2><h3>My Information</h3></td><td></td></tr>
<tr><td>From</td><td><font color=blue>Bory</font></td></tr>
<tr><td >My Information</td><td width=100><fontcolor=blue>
DIV_BORY__V10.30.0__AR 
LIV_BORY_1696_V10.30.0__HD
LIV_BORY_162X_V10.30.0__CL
</font></td></tr></table></center> );          
$body=qq (</body></html>);
$sender->SendEnc($msg,$body);
$sender->Close();

[download]

The problem begins with "ctype=>text/html". s/html/text/

Then, the rest follows very nicely: 

$msg=qq (My Information
From Bory
My Information
DIV_BORY__V10.30.0__AR 
LIV_BORY_1696_V10.30.0__HD
LIV_BORY_162X_V10.30.0__CL
 );          
$sender->SendEnc($msg);

[download]

White space is honored. It works on all email clients.

yours,
Michael

In Section Seekers of Perl Wisdom