set_default_passwd_cb CTX_set_default_passwd_cb $IO::Socket::SSL::SSL::GLOBAL_CONTEXT_ARGS{'SSL_passwd_cb'} &IO::Socket::SSL::context_init('SSL_passwd_cb' => \&foo );