$self->response(HTTP::Response->new(
$code => undef,
HTTP::Headers->new(
    'SOAPServer' => $self->product_tokens,
     $compressed ? (
         'Content-Encoding' => $COMPRESS) : (),
         'Content-Type' => join(
             '; ',
             'text/xml', 
             !$SOAP::Constants::DO_NOT_USE_CHARSET && $encoding ? 'charset=' . lc($encoding) : ()
         ),
         'Content-Length' => SOAP::Utils::bytelength $response),
     $response,
));
$self->response->headers->header('Content-Type' => 'Multipart/Related;       type="text/xml"