perl -MFile::Find -e "$|++; sub wanted{if((-d $_)&&($_ eq 'CVS')){print qq|$File::Find::dir\\$_\n|}} find(\&wanted,'.',follow=>1);"
./a\CVS
./b\CVS
./c\CVS