Unnamed

    my $parser = XML::LibXML->new();
    my $tree = $parser->load_xml(string => $response->content);

    my $root = $tree->getDocumentElement;
    my @items = $root->getElementsByTagName('item');
    foreach my $item (@items) {
        my $title = $item->getAttribute('title');
        my $description = $item->getAttribute('description');
        print $title;
        print $description;
        print "here\n";
    }

<ugcForumCategory>
<getBlogCategories>
<status>
<code>1</code>
<message>Category Info Retrieved</message>
</status>
<result>
<total>1</total>
<page>1</page>
<perPage>10</perPage>
<items>
<item>
<forum_category_id>123657</forum_category_id>
<title>General</title>
<url>
http://diabetescommunity.dlife.com/go/forum/viewcategory/123657/General
</url>
<description/>
<created>2011-06-02 16:17:06</created>
<forums>...</forums>
</item>
</items>
</result>
</getBlogCategories>
</ugcForumCategory>