Reading the documentation for File::Find will show you what you need to do.

Something like

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

Where you have a sub called wanted in your script to do what you want to do to the file.