Help for this page
my $SockObj = $self->sock_object;
sub Action1 { ... $ComObj->TapResponse($Response); }