File::Find
Traverse a directory tree.
search.cpan.org