#!/usr/bin/perl -w
use strict;use File::Find;use File::Path;
find(sub {if ((-d $File::Find::name) && ($File::Find::name =~ /CVS/i )) { rmtree($File::Find::name,1,1)}},"c:/temp");