my $SockObj = $self->sock_object; 
##</code><code>##

sub Action1 {

    my ( $self, $x, $y ) = @_;

    my $tmp = {
        'hash1'   => 'Command',
        'value1'        => $x,
        'value2'        => $y,
        'Device' => $self->{_device}
    };
    $InputRequest = $ComObj->CreateInputString($tmp);
    my $SockObj = $self->sock_object;
    $SockObj->WriteInfo($InputRequest);
    my $Response = $SockObj->ReadData();
    $ComObj->TapResponse($Response);
}