Help for this page
@path{@INC} = (); # Then later in the find sub, we see: ... return if exists $path{$File::Find::dir} and $File::Find::dir ne $File +::Find::topdir; # What is going in the above line? What is the purpose?
$name = substr $File::Find::name, length $File::Find::topdir;