Select Code to Download

#!/usr/bin/perl
use warnings;
use strict;
...
        last
    }
}

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 ;