434 2346 Smile 1024 768 Background.jpeg ##

##

#!/usr/bin/perl


use 5.010;
use strict;
use warnings;

use XML::LibXML;

#my $FILENAME = ('imgfile.xml');

my $parser = XML::LibXML->new;
my $dom = XML::LibXML->load_xml(
	location => 'imgfile.xml'
);

print 'XML Version is: ', $dom->version, "\n";
print 'Document encoding is: ', $dom->encoding, "\n";

foreach my $image ($dom->findnodes('imgfile/images/views/view/nodes/node/properties')) {
	say 'Description: ', $image->findvalue('./Description');
}

exit(0);

##

##

XML Version is: 1.0
Document encoding is: UTF-16
Description:      
Description: