Will File::Find not achive what you are trying to do? Perhaps a perldoc File::Find is in order, and/or checkout recipe 9.7 in the Perl Cookbook.

HTH
Dex