#!/usr/bin/perl

  use strict;
  use warnings;

  my $filename = 'library.xml';

use XML::LibXML;

  my $parser = XML::LibXML->new();
  my $doc    = $parser->parse_file($filename);
#my $book;
foreach my $title ($doc->findnodes('/library/book/title')) {
my $name= $title->to_literal ;
print $name;
  }