Select Code to Download

<booklist>

...

  </booklist>

<booklist>
   <book >
...

   </book>
  </booklist>

 
use strict;
...
        print $book->{type}."\n";
    
}