Re^2: Send multiple message using MIME

Thanks Ken, Now am able to send multiple messages as single message.

I am using:
MIME::Lite: Data => join("\n" => $message1, $message2, $message3)

Comment on Re^2: Send multiple message using MIME Download Code