PROGRAM: try_socket_perl_monks.pl $ARGV[0]=A
Configuration A, $MySocket=IO::Socket::INET=GLOB(0x818416c)
$MySocket = IO::Socket::INET=GLOB(0x818416c)
After the sending of the message
above the recv, $retries=1
retrying $retries=2
above the recv, $retries=3
retrying $retries=4
END OF PROGRAM