MIME contents

Im wondering if someone knows how to find and extract MIME contents from email.

I´ve looked at the MIME modules that comes with perl but haven't got anything to work.

Ï want to be able to for example store GIF files from the letter on my server if the mail contains it.

I've looked at MIME: ecoder and so on but needs a good example to get it to work!

Can someone help me on this ?

Start here for an easy way -> http://www.perl.com/CPAN-local/modules/by-module/Mail/Mail-Sender-0.7.04.tar.gz

Copied from its SYNOPSIS section:
SYNOPSIS
use Mail::Sender;
$sender = new Mail::Sender
{smtp => 'mail.yourdomain.com', from => 'your@address.com'};
$sender->MailFile({to => 'some@address.com',
subject => 'Here is the file',
msg => "I'm sending you the list you wanted.",
file => 'filename.txt'});

Also check out -> http://www.devshed.com/Talk/Forums/Forum6/HTML/000318.html