I think your (kyle's) concern with recursive calls to File::Find does not apply anymore (since 5.8). In the section HISTORY, we read:

File::Find used to produce incorrect results if called recursively. During the development of perl 5.8 this bug was fixed. The first fixed version of File::Find was 1.01.