##
Book 1 author 1
Book 1 author 2
Book 1 title
Book1ISBN
type="technical"
####
use strict;
use XML::Simple;
use Data::Dumper;
my $booklist = XMLin('book.xml', ForceArray => 1);
# print Dumper($booklist);
foreach my $book (@{$booklist->{book}}) {
print $book->{type}."\n";
}