my $lite = SOAP::Lite->new()->on_action(sub { join '/', @_ } )
        ->proxy($args->{proxy});
    my $response = $lite->call(
        SOAP::Data->name('fetchAndLock')
         ->attr({ 'xmlns', $args->{xmlns}}),
           SOAP::Data->name("first")->value($args->{first}),
           SOAP::Data->name("max")->value($args->{max}),
           SOAP::Data->name("action")->value($args->action}),
          SOAP::Data->name("state")->value($args->{state}),
          );
    return $response;
}

sub SOAP::Transport::HTTP::Client::get_basic_credentials {
       $zID => $zPW;
    }