my ($caname) = $node->findnodes('./extendedAttributes/attribute');
  print $nodename->to_literal, "\n", "\t", $caname->to_literal, "\t", "\n"

##</code><code>##

  my (@canamel) = $node->findnodes('./extendedAttributes/attribute');
  foreach my $caname (@canamel) {
    print $nodename->to_literal, "\n", "\t", $caname->to_literal, "\t", "\n";
  }