Select Code to Download

use strict;
use warnings;
...
my $answer = $call->(%request);
my $sessionToken = $answer->{parameters}{Output}{SessionToken};

<?xml version="1.0" encoding="UTF-8"?>
<SOAP-ENV:Envelope xmlns:SOAP-ENV="http://schemas.xmlsoap.org/soap/env
+elope/">
...
    </tns:LogIn>
  </SOAP-ENV:Body>
</SOAP-ENV:Envelope>

<s:Envelope xmlns:s="http://schemas.xmlsoap.org/soap/envelope/">
  <s:Header>
...
    </LogInResponse>
  </s:Body>
</s:Envelope>

<?xml version="1.0" encoding="UTF-8"?>
<SOAP-ENV:Envelope xmlns:SOAP-ENV="http://schemas.xmlsoap.org/soap/env
+elope/">
...
    </tns:GetNewPassword>
  </SOAP-ENV:Body>
</SOAP-ENV:Envelope>