foo ##
##

my $obj = XML::Twig->new(twig_roots =>{'cat' => \&pp});
$obj->parse($sz);
sub pp
{
        my($objXML, $objTag) = @_;
        $grhshXML = {};
        @garTags = ();
        @garTags = $objTag->children();
        foreach my $arTag (@garTags)
        {
               $grhshXML->{$arTag->gi()} =$arTag->text();
        }
}