my $som = SOAP::Lite 
  -> encoding('literal')
  -> service($wsdl)
  -> proxy($service_address,
     keep_alive => 1)
  -> on_action(sub {sprintf '%s',$soapaction, shift});

$som -> call(SOAP::Data->name('GetFUR')-> attr({xmlns => 'https://webdpc.federfarma.lombardia.it/DpcServices/FurService'}) =>
             $input,$securityHeader);

##</code><code>##

<soap:Envelope xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:soapenc="http://schemas.xmlsoap.org/soap/encoding/" xmlns:xsd="http://www.w3.org/2001/XMLSchema" soap:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/" xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/">
  <soap:Header>
    ....

##</code><code>##

<![CDATA[<soap:Envelope xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:soapenc="http://schemas.xmlsoap.org/soap/encoding/" xmlns:xsd="http://www.w3.org/2001/XMLSchema" soap:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/" xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/">
  <soap:Header>
    ......
]]>