File::Find 

use File::Find;

find(\&wanted, @directories_to_search);