if (-d Find::File:name)
   {
   File::Find::prune = 1;
   return;
   }