foreach ( 7100 .. 7114 ) {
	my $path = File::Spec->catdir( $topdir, "$_/hosted/docs/cdm4/msoffice" );
	my $cmd = "rmdir /s /q $path";
	print "$cmd \n";
	print `$cmd` . "\n";
}