BEGIN {
  package MySerializer; @MySerializer::ISA = 'SOAP::Serializer';
  sub envelope {
    $_[2] = (SOAP::Data
	     ->name($_[2])
	     ->prefix("TESTAPI")
	     ->uri("urn:TESTServices")
	    ) if $_[1] =~ /^(?:method|response)$/;
    shift->SUPER::envelope(@_);
  }
}