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

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