if ( $File::Find::topdev != (stat)[0] )
   { $File::Find::prune = 1; return }