sub wanted{
   push @dirs,$File::Find::name if -d $File::Find::name;
}