Select Code to Download

xpath -e '//*[not(child::*)]' books.xml

use strict;
use warnings;
...
        XML::XPath::XMLParser::as_string($node),
        "\n";
}