#!/usr/bin/perl -w
use warnings;
use File::Slurp qw(:std);
use File::stat;
use File::Path;
use Data::Printer;

my $folder = 'D:\\Test\\code insider\\';
my @folders;
push @folders, $folder;

for my $fold ( @folders ) {
	opendir my $dh, "$fold";
	my @fol = readdir $dh;

	for my $d ( @fol ) {
		if ( $d =~ /^\.|^\.\./ ) {
			next;
		}

		if ( -d "$fold$d" ) {
			if ( $d ne 'data' ) {
				# remove_tree("$fold$d");
			} else  {
				rmtree( "$fold$d\\user-data\\Cache", {keep_root => 1} );
				rmtree( "$fold$d\\user-data\\GPUCache", {keep_root => 1} );
				rmtree( "$fold$d\\user-data\\CachedData", {keep_root => 1} );
				rmtree( "$fold$d\\user-data\\CachedData-x64", {keep_root => 1} );
			}
		} else{
			# unlink("$fold$d");
		}
	}
}

1;