#!/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);