#!/usr/bin/perl

use warnings;
use strict;
use feature qw{ say };

use XML::LibXML;

my $dom = 'XML::LibXML'->load_xml(location => 'imgfile.xml');
say 'XML Version is: ', $dom->version;
say 'Document encoding is: ', $dom->encoding;

for my $image (
	$dom->findnodes('/imgfile/images/views/view/nodes/node/properties')
) {
	for my $property (qw( Description Height Width )) {
		say "$property: ", $image->findvalue("property[\@type='$property']");
	}
}

##</code><code>##

<?xml version="1.0" encoding="UTF-16" standalone="yes"?>
<imgfile IMGFileVersion="1.2.0.2312" xmlns="http://foobar.com/version/2.0">
	<images>
		<views>
			<view type="contacts_view">
				<nodes>
					<node>
						<properties id="guid1">
							<property type="Height">434</property>
							<property type="Width">2346</property>
							<property type="Description">Smile</property>
						</properties>
	   		 		</node>
					<node>
						<properties id="guid2">
							<property type="Height">1024</property>
							<property type="Width">768</property>
							<property type="Description">Background.jpeg</property>
						</properties>
	   		 		</node>
   			 	</nodes>
			</view>
		</views>
	</images>
</imgfile>

##</code><code>##

<imgfile IMGFileVersion="1.2.0.2312">