Select Code to Download

In sock_write - sel = IO::Select=ARRAY(0x201651cc)
Results of syswrite - 11                          
...
In sock_read - sel = IO::Select=ARRAY(0x200272b8) 
Results of syswrite - 5                           
read AAAAA from the socket

In sock_write - sel = IO::Select=ARRAY(0x20164c0c)
Results of syswrite - 11
...
Use of uninitialized value in concatenation (.) at /appl/tst/eng/local
+/bin/IELmq1 line 63.
Results of syswrite - 
sock_read: socket read error (A connection with a remote socket was re
+set by that socket.) at /appl/tst/eng/local/bin/IELmq1 line 28.

In sock_write - sel = IO::Select=ARRAY(0x20164c0c)
Results of syswrite - 11
...
Use of uninitialized value in concatenation (.) at /appl/tst/eng/local
+/bin/IELmq1 line 63.
Results of syswrite - 
sock_read: socket read error (A connection with a remote socket was re
+set by that socket.) at /appl/tst/eng/local/bin/IELmq1 line 28.

use IO::Socket::INET;
use IO::Select;
use Errno qw(EAGAIN);
...

    return $buf;