Help for this page
Select Code to Download
Select
or
download this
while ( 1 ) { unless ($sock->connected) { ... } # ... }