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

Perhaps you should go find the source code of the connected() method.

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