my $digestuser ="dado";
my $digestpass ="cane";

my $file="user.xml";
my $parser=XML::LibXML->new();
my $doc=$parser->parse_file($file);
my $root = $doc->getDocumentElement;

for my $u ($doc->findnodes('userlist/user')) {
	print "inside-cycle";
	my $property=$u->findnodes('./username')->get_node(1); 
			if(($property->textContent()) eq $digestuser){
			
				
				print $userok;
				$property=$u->findnodes('./password')->get_node(1); 
				if(($property->textContent()) eq $digestpass){
					$passok=1;
					
						print "i did it";
					}
		last;	
	}
}


##</code><code>##

<?xml version="1.0" encoding="UTF-8"?>
<xs:schema xmlns:xs="http://www.w3.org/2001/XMLSchema"
    xmlns="http://tecnologie-web.studenti.math.unipd.it/tecweb/~gpinato"
    targetNamespace="http://tecnologie-web.studenti.math.unipd.it/tecweb/~gpinato"
    elementFormDefault="qualified">

<xs:element name="userlist">
	<xs:complexType>
		<xs:sequence>
			<xs:element name="user" minOccurs="0" maxOccurs="unbounded">
				<xs:complexType>
					<xs:sequence>
						<xs:element name="username" type="xs:string" />
						<xs:element name="password" type="xs:string" />
						<xs:element name="email" type="xs:string" />
					</xs:sequence>
				</xs:complexType>
			</xs:element>
		</xs:sequence>
	</xs:complexType>
</xs:element>

</xs:schema>

##</code><code>##

<?xml version="1.0" encoding="UTF-8"?>
<userlist xmlns="http://www.progetto.com" xmlns:xs="http://www.w3.org/2001/XMLSchema-instance" xs:schemaLocation="http://www.progetto.com user.xsd">
<user>
               <username>dado</username>
               <password>cane</password>
			   <email>cane</email>
				</user></userlist>