Select Code to Download

use threads;
use Thread::Queue;
...
    }
});
$com->enqueue("<message><to ip=\"IPADDR\"><data>INFO</data><anyfieldsy
+ouwant>whatever</anyfieldsyouwant></message>");

package communication_server;

...
#COMMUNICATION--------------------------------------------------------
+----------------------------------

1;

package communication_client;

...
#COMMUNICATION--------------------------------------------------------
+----------------------------------

1;