#!/usr/bin/perl

  use strict;
  use warnings;
  
  use XML::LibXML;
  use Data::Dumper; 
  
  # my $filename = 'library.xml';		#- ORIG
  my $filename = 'data.xml';
   

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


my $xpath = '/Model/packagedElement/@name';
print Dumper $doc->findvalue($xpath); 

# print Dumper $doc->toString(1);