File::Find 

use File::Find;

find(\&wanted, @directories_to_search);

sub wanted {
    say $_;                  # err.h
    say $File::Find::dir;    # /usr/include
    say $File::Find::name;   # /usr/include/err.h
}