The problem is you haven't told the MIME::Lite::TT::HTML object what encoding to use. Since you want to send attachments that type should be 'multipart/mixed'. It should just be a matter of adding this argument to your call to new():

Type => 'multipart/mixed'
[download]