use File::Find;

find(\&wanted, '/usr/local/src');

sub wanted {
    open(FL, $File::Find::name);
    # process stuff here #
    close(FL);
}