main::(3.openai.pl:26):	my $ua = LWP::UserAgent->new;
>> n
main::(3.openai.pl:27):	$ua->ssl_opts(
main::(3.openai.pl:28):	    verify_hostname => 1,
main::(3.openai.pl:29):	    SSL_ca_file     => '/Users/mymac/Documents/cacert-2023-12-12.pem',
>> s
LWP::UserAgent::ssl_opts(/System/Library/Perl/Extras/5.30/LWP/UserAgent.pm:713):
713:	    my $self = shift;
>> r
void context return from LWP::UserAgent::ssl_opts
...
main::(3.openai.pl:46):	if ($res->is_success) {
>> y
$api_url = 'https://api.openai.com/v1/engines/davinci-codex/completions'
$auth_token = 'redacted but correct'
$json_data = '{"max_tokens":150,"prompt":"How many units are there in a mole?"}'
$prompt = 'How many units are there in a mole?'
...
$req = HTTP::Request=HASH(0x14103e258)
   '_content' => '{"max_tokens":150,"prompt":"How many units are there in a mole?"}'
   '_headers' => HTTP::Headers=HASH(0x14105a110)
      '::std_case' => HASH(0x131958040)
         'if-ssl-cert-subject' => 'If-SSL-Cert-Subject'
      'authorization' => 'Bearer sk-...'
      'content-type' => 'application/json'
      'user-agent' => 'libwww-perl/6.44'
   '_method' => 'POST'
   '_uri' => URI::https=SCALAR(0x140444dc8)
      -> 'https://api.openai.com/v1/engines/davinci-codex/completions'
   '_uri_canonical' => URI::https=SCALAR(0x140444dc8)
      -> REUSED_ADDRESS
$res = HTTP::Response=HASH(0x140698518)
   '_content' => '{
    "error": {
        "message": "The model `davinci-codex` does not exist or you do not have access to it.",
        "type": "invalid_request_error",
        "param": null,
        "code": "model_not_found"
    }