#!/usr/bin/perl 
use XSConf qw(foo.xml);

for(qw(config database database_filesystems filesys_exclude_list filesys)) {
    XSConf->$_; 
} 
# config now anchored at 'filesys' array

print "root: ",XSConf->_0,$/;
print "filesys $_\n" for XSConf->_elems;

print XSConf->config->database->codeset,$/;

XSConf->config->database; # config now anchored at 'database' hash

while( my ($k,$v) = XSConf->_each ) {
    print "database: $k = $v ", ref $v ? '('.ref $v .')' : '', $/;
}
{
  local $"=":";
  print "service @l\n", ^@^
    if @l= XSConf->config->app->hostservices->service->_2->_values;
}

__END__
root: /
filesys /
filesys /usr
filesys /opt
filesys /var
iso-8859-1
database: password = DBPASSWD
database: database_filesystems = HASH(0x945f3ec)
database: codeset = iso-8859-1
database: name = DBNAME
database: user = DBUSER
database: port = DBPORT
database: host = DBHOST
service telnet:23