[CentOS] parsing an e-mail with perl

Dear List,

I need to be able to pull off attachments from e-mails on the fly and
then demime them and print them.  I have been studying MIME::Tools but
was hoping someone could point me to a script example of something I
could use.  

Any help would be appreciated - Thanks!
-- 
Greg Ennis