You may want to use the File::Find module. There are plenty of examples by merlyn and Fastolfe. Then there is the long way of doing this as well, but I don't really recommend that....
curtisb -- "Use the Wisdom of Others!"