#!/usr/bin/perl -w

  use strict;
  use warnings;

  my $filename = 'library1.xml';
  
  use XML::LibXML;

  my $parser = XML::LibXML->new();
  my $doc    = $parser->parse_file($filename);




    print $_->data . " | " foreach ($doc->findnodes('/library/cd/artist/text()'));

    my @nodes = $doc->findnodes('/library/book[last()]'); 
    foreach my $node (@nodes) {
    print $node->findvalue( 'title')." | \n";
	
	
}