Select Code to Download

#! perl -slw
use strict;
...
print XMLout( $_, NoAttr => 1, RootName => 'book' ) for @{ $xml->{book
+} };

__DATA__

C:\test>junk
<book>
...
  <isbn>Book3ISBN</isbn>
  <title>Book 3 title</title>
</book>