BEGIN {
    package MySerializer;
    @MySerializer::ISA = 'SOAP::Serializer';
    sub envelope {
        $_[2] =~ s/Response$// if $_[1] =~ /^(?:method|response)$/;
        shift->SUPER::envelope(@_);
    }