Write perl script to pull out attachments from email and save to a directory?

[CWB rider]

Does anyone know the portion of code that would pull out an attachment from an email and save in a given directory via PERL?
Any help will do, Thanks