+15Jan06=======================================================================
+1. added CTY-1701
07Jan06=======================================================================
1. use IO::Socket blocking where available and switch off or ignore all
attempts to block.