or download this
use strict;
use warnings;
...
print "AuthStatus\t", $xp->getNodeText('//ProcessSetupResponse/Process
+SetupResult/i:AuthenticatedStatus'), "\n";
print "AuthStatus\t", $xp->getNodeText('//ProcessSetupResponse/Process
+SetupResult/a:AuthenticatedStatus'), "\n";