I love perl, but I grew up on shell scripts. I have some interfaces that pull mail, extract the attachments then move them to another directory.

I used a python script getmail.py (freshmeat) and
uudeview -i +e dat -o *

which would extract attachments from all files in the current dir..

good luck