#!/usr/bin/perl -w
use strict;
$|++;

use XML::Comma;
$::index =
  XML::Comma::Def->read(name=>'AllAfrica_NewsStory')->get_index('post');

print "-->index/def: " $::index . ' ' . $::index->{_def} . "\n";