Select Code to Download

my $xpc = XML::LibXML::XPathContext->new($doc);
$xpc->registerNs('p', 'http://www.crtp.it');
$xpc->registerNs('p2', 'http://www.crpt.com');
my $result = $xpc->findnodes("/p2:login/p:utenti[p:email='$email' and 
+p:password='$digestpass']/p:admin");

my $result = $doc->findnodes(qq{
/*[ local-name()="login" and namespace-uri()="http://www.crpt.com" ]
...
  ]
/*[ local-name()="admin" and namespace-uri()="http://www.crtp.it" ]
});