use strict;
use SOAP::Lite +trace => 'debug';

  $SOAP::Constants::PREFIX_ENV = "soapenv";    # Original: SOAP-ENV
  $SOAP::Constants::PREFIX_ENC = "soapenc";    # Original: SOAP-ENC

  my $ns_apple = "http://my.website.com/Apple";

  my $host     = "https://localhost/cgi-bin/apple_in.cgi";
#  my $ns       = "urn:apple";

  my $cert = 'my_cert.cer';
  $ENV{HTTPS_CERT_FILE} = $cert;

  my $soap_req = '
 <apple:tree xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
   <mycontent code="112233">
      <otherstuff value="123456" accuracy="20.0" timestamp="2013-04-06 23:26:16" />
   </mycontent>
 </apple:tree>
';

  my $soap = SOAP::Lite
   ->readable(1)
   ->on_action( sub { join '/foo/', @_ } )
#   ->uri($ns)
   ->proxy($host)
   ->autotype(0);

 my $som = $soap->call(SOAP::Data->name('apple:getanswer')
                                 ->attr({"xmlns:apple" => $ns_apple
                                         })
                                 =>SOAP::Data->type('xml' => $soap_req)
                       );


 die $som->faultstring if ($som->fault);
 my $res = $som->result;
 print "The response from the server was:\n".$res."\n";