return (0) unless ($sock->connected()); 
return (0) unless (getpeername($sock));