$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]