Email-MIME-ViewableParts is a project mainly written in Perl, it's free.

Module to select a viewable part from a MIME email