Select Code to Download

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";

AuthStatus    Y
AuthStatus    N