#!/usr/bin/perl

use strict;

use CHI;

my $namespace = 'vbsite';
 my $cache = CHI->new( driver => 'Memory', global => 1,serializer => 'Data::Dumper', namespace => $namespace );

my @keys = $cache->get_keys(namespace => $namespace);

print "Content-type: text/plain\n\n";
print "there are ".scalar(@keys)." keys in namespace $namespace:\n";
print $_."\n" foreach(@keys);

##</code><code>##

there are 3 keys in namespace vbsite:
{"dir":"/var/www/html","filename":"intro.xml":"panel_id":"1"}
{"dir":"/var/www/html","filename":"menu.xml":"panel_id":"2"}
{"dir":"/var/www/html","filename":"home.xml":"panel_id":"3"}

##</code><code>##

there are 2 keys in namespace vbsite:
{"dir":"/var/www/html","filename":"intro.xml":"panel_id":"1"}
{"dir":"/var/www/html","filename":"menu.xml":"panel_id":"2"}