I've never had to do this, but perhaps MIME-Tools will help.

I see one piece of code that I use (Mail::Audit) that checks for a MIME-Version header (I think case insensitively) to tell if mime parsing is needed.