use strict;
use warnings;
use File::Glob;

my @dirs;

chdir "C:/builds/Vnet/crm";
for (glob("*")) {push @dirs, $_ if -d;}
remove \1, $dirs[$_] for (0..$#dirs-5);