use File::Find;
my @directories = ('/usr/local');
find(\&wanted, @directories);