my @dirs = ('/web/directory/AA', '/web/directory/BB', '/web/directory/CC',);
find(\&search, @dirs);