Your best bet is probably going to be File::Find. It provides a nice interface for just this sort of problem.

-Bird