in reply to MIME::Lite, DBI LONGRAW's & newlines
I'm pretty sure that zakb has the right idea.
What does look odd though is: Data => qq{ $body } Which just adds a space to the beginning and end of $body. I'm guessing that you don't want to do this and should just remove the qq{}.
You might also look at HTML::FromText or HTML::TextToHTML.
gav^
In Section
Seekers of Perl Wisdom