i've asked some (somewhat) related questions, and gotten great answers here and here

You could start there... and i'm sure there's help to be found in the File::Find documentation.