use strict;
use File::Find::Rule;

my $directory ="/vol/engtemp/IMFT-RND/FAB4_YE/www/es/";
my @subdirs = File::Find::Rule->mindepth(1)->maxdepth(9)->directory->in( $directory );

foreach my $subdir (@subdirs){
print "$subdir\n";
}