$inner = new MIME::Entity ( ... );
$outer = new MIME::Entity ( ... );

$outer->add_part($inner);