Perl script o reponse email with original content

[litrevor]

I am writing a Perl script to automatically reponse email by copying the original email content to the bottom of the reponse email, where I am exactly stuck in.

There are different Content-Type like Text/Plain, Text/Html, multipart, and maybe more... I am trying to figure out how to support all of them.

I wonder if anyone has experience in creating a general script which applys to any kind of Content-Type in the original message and presents them in the new response email with my new content.

Regards