#Does the search in ALL 30 of my directories and does search my web root
find( \&subsearch, map "$dirs/$_", qw( . AA BB ));