Can you please add a server example that uses the context feature?

I have a non-forking non-blocking server using IO::Socket::INET. After accepting new clients with IO::Socket::INET, I then use start_ssl on the client to comlete an ssl handshake. I wouldd like to switch to using a SSL_context. I've tried multiple combinations starting with a normal socket or a ssl socket and then following with using accept and accept_ssl, setting up a a new context, using an existing socket as a context, setting the default context, setting the initial context.