SOAP::Transport::HTTP::Client::send_receive: POST http://localhost/soa
+p/perl/soap-server.pl HTTP/1.1
Accept: text/xml
Accept: multipart/*
Accept: application/soap
Content-Length: 566
Content-Type: text/xml; charset=utf-8
SOAPAction: "urn:LoginAction"

<?xml version="1.0" encoding="UTF-8"?><soap:Envelope soap:encodingStyl
+e="http://schemas.xmlsoap.org/soap/encoding/" xmlns:soap="http://sche
+mas.xmlsoap.org/soap/envelope/" xmlns:soapenc="http://schemas.xmlsoap
+.org/soap/encoding/" xmlns:tns="urn:Marketplace" xmlns:wsdl="http://s
+chemas.xmlsoap.org/wsdl/" xmlns:xsd="http://www.w3.org/2001/XMLSchema
+" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"><soap:Body><t
+ns:login><login xsi:type="xsd:string">test_user</login><password xsi:
+type="xsd:string">test_password</password></tns:login></soap:Body></s
+oap:Envelope>
SOAP::Transport::HTTP::Client::send_receive: HTTP/1.1 200 OK
Connection: close
Date: Tue, 21 Aug 2018 12:16:02 GMT
Accept-Ranges: bytes
ETag: "7c-573f0161015b0"
Server: Apache/2.4.29 (Ubuntu)
Content-Length: 124
Content-Type: text/x-perl
Last-Modified: Tue, 21 Aug 2018 11:11:23 GMT
Client-Date: Tue, 21 Aug 2018 12:16:02 GMT
Client-Peer: ::1:80
Client-Response-Num: 1

#!/usr/bin/perl


sub login( $login, $password )
{
  return $login;
}

sub doFilter( $params )
{
  return "some string";
}