/cache/00/
/cache/01/
/cache/01/aa/
/cache/_01/
/cache/_01/aa/

##</code><code>##

#!/usr/bin/perl

use warnings;
use strict;
use File::Find;
use File::Path qw(make_path remove_tree);

my $path="/opt/ssi/www/shop_templates/cache";

rmtree($path) or die "Cannot rmtree '$path' : $!";