use File::Find;
and see the tutorials section as well as the code section

Have a nice day
All decision is left to your taste

Update
See Beginners guide to File::Find