my $parser = XML::LibXML->new(); my $doc = $parser->parse_string($response->content); my $root = $doc->documentElement(); print $root->nodeName, "\n"; foreach my $node ($root->childNodes){ print $node->nodeName, "\n
"; if ($node->hasAttributes){ foreach ($node->attributes){ printf(" %10s: %-20s\n",$_->name, $_->value); } } }