Select Code to Download

  use XML::LibXML;

...
    my($title) = $book->findnodes('./title');
    print $title->to_literal, "\n" 
  }

  use XML::LibXML;

...
    my($title) = $book->getChildrenByTagName('title');
    print $title->to_literal, "\n" 
  }