sub send_receive { my ($self, %params_of) = @_; warn "Request: $params_of{envelope)"; my $response = $self->SUPER::send_receive(%params_of); warn "Response: $response"; return $response; }