in reply to Recursively blowing away directories of a certain name

use File::Find::Rule;
use File::Path;

rmtree [ File::Find::Rule
    ->directory()
    ->name( '_vti_cnf' )
    ->prune()
    ->in( @ARGV )
];

[download]
Update: added prune() per runrig's suggestion.

Makeshifts last the longest.

In Section Seekers of Perl Wisdom