I made use of the two MIME:: modules mentioned in the column, and they worked well... most of the time. For certain messages, it would cause my proxy to never pass the message along to my mail client. So until I can track down the problem, I am back to doing it with my handrolled solution. But nonetheless, your article gave me a good headstart on the usage of those two modules, and the rest of the MIME:: family, thanks. (That and it's nice to not be the only one to have made cheesey MIME puns)

Assuming you've followed along and managed to get a valid $entity (isa MIME::Entity), the following example from the manpage of the same name is pretty nifty:

# Only keep text parts
my @keep = grep { $_->effective_type =~ m|^text/| } $entity->parts;
$entity->parts(\@keep);
[download]

Peace,
-McD