Corion's post seemed like a good suggestion. I see that you've posted that it didn't work. As Corion has replied, "it doesn't work" is usually a very poor problem description. What code didn't work? What was the input? What was the result? Please see Short, Self-Contained, Correct Example and I know what I mean. Why don't you?.

Note: It's best to reply directly to Corion's posts on this matter. He knows a lot more about it than I.

$att_part = MIME::Lite::->new(
        'Type' => 'application/octet-stream',
        'Encoding' => 'base64',
        'Path' => shift @files,
    );

$msg->attach($html_part);
$msg->attach($att_part);
# assuming all files are same type and encoding,
for my $file(@files) {
   $msg->attach(  
         'Type' =>  ......,
        'Encoding' => ......,
         'Path'    => $file, 
   
    );

}
[download]