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

##</code><code>##

sub connected {
    @_ == 1 or croak 'usage: $sock->connected()';
    my($sock) = @_;
    getpeername($sock);
}