Unnamed

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

    my $root = $tree->getDocumentElement;
    foreach my $item ($root->findnodes('item')) {
        my $title = $item->findvalue('title');
        print "here\n";
        print $title;
    }

<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://what.com
</url>
<description/>
<created>2011-06-02 16:17:06</created>
<forums>...</forums>
</item>
</items>
</result>
</getBlogCategories>
</ugcForumCategory>