Select Code to Download

package IO::Socket::SSL;
 
...
 
    return wantarray ? ($socket, getpeername($socket) ) : $socket;
}