Select Code to Download

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

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