File::Find 

use File::Find;

find(\&wanted, @directories_to_search);

sub wanted {
    my() = @_;      # passed no arguments

    return undef;   # return value is ignored
}