open user.xml ;
my $digestuser = 'dado' ;
my $password   = 'cane' ;
my $passok ;
if p:userlist/p:user[p:username=$digestuser and p:password=$digestpass] $passok = 1 ;