Select Code to Download

    my $content = SOAP::Serializer->prefix( 's' )->envelope(
        'response',
        SOAP::Data->name( $response->soapmethod() . 'Response' )->uri(
+ $response->soapuri() ),
...
        ( $_[STATE] eq 'RAWDONE' ? SOAP::Data->type( 'xml', $response-
+>content() ) : $response->content() ),
    );

#!/usr/bin/perl --

...

__END__

$ perl soap-lite-uri-namespace.pl |xml_grep --nowrap soap:Body |xml_pp
<soap:Body>
...
</soap:Body>