##

#!/usr/bin/env 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;


# RETURNS ONLY WHERE name="Name" IN ONE ITEM
for my $fileline ( $dom->findnodes('/files/file[@name="Image"]/item/field[@name="Name"]') )
{
	say 'Name : ', $fileline->getAttribute('value');

}


# RETURNS ALL VALUES IN ONE ITEM
for my $fileline ( $dom->findnodes('/files/file[@name="Image"]/item/field') )
{
	say 'Value: ', $fileline->getAttribute('value');
}


# NOT WORKING
for my $fileline ( $dom->findnodes('/files/file[@name="Image"]/item') )
{
	say 'Name : ', $fileline->getAttribute('field[@name="Name"]/value');
	say 'Size : ', $fileline->getAttribute('field[@name="Size"]/value');
}