Select Code to Download

#!/usr/bin/perl

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

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"}

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"}