Thanks for that..Using Strict and Warnings helped me remove some errors. Howvere, I'm still getting the Compilation failed in require error in use Device.pm
Some of my questions are:
In the code that you sent, what's the operator "|| = " ?
In the code, could I add a line
my $SockObj = $self->sock_object;
in order to call that particular socket object.
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);
}
Thanks so much.. You're inputs gave me some valid direction.