my @startDirs = qw(/etc /dev /bin);
my @SubDirs= File::Find::Rule->directory->in( @startDirs );