use File::Find; find sub { push @reportdirs, $File::Find::name, if -d && /^reports$/ }, "/opt/web";