Select Code to Download

    $self->{LMCE_command_sender} = IO::Socket::INET->new(PeerAddr => $
+self->{host_url}, PeerPort => $self->{port} , Proto => 'tcp') or die 
+"\nCould not create socket: $!\n";

Send_Message_To_LMCE($self,$self->{LMCE_command_sender},"EVENT $device
+_ID");

Send_Command_To_LMCE ($self,"EVENT $device_ID");

# send generic message to LMCE socket $sockett 
sub Send_Message_To_LMCE {
...
    print     "Sending Command Message to LMCE DCE : $message\n";
}