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;
[download]

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);
}
[download]

Thanks so much.. You're inputs gave me some valid direction.