[MacPerl] mail!!!!

["Digital Media, Inc." <digital@ansel.intersource.com>]

   I'm looking for a script that forwards any mail sent to a certain address. If
anyone knows were to find one, or has any ideas please e-mail me. I started 
writing the script already and have not tested it. I'm wondering if I put it in 
my mail directory how would I grab the files in the inbox. I'm not sure how the 
server handles the files. Are they named independantly or could I grab them as 
they come in.
                       Thanks,
                         Clint