librekitty on Nostr: ```pl use constant OPENAI_API_KEY_START => 'sk-proj-'; use constant ...

```pl
use constant OPENAI_API_KEY_START => 'sk-proj-';
use constant OPENAI_API_KEY_MIDDLE => 'T3BlbkFJ';

sub generate_random_string
{
my ($string_size) = @_;
my @chars = ('a'..'z', 'A'..'Z', '0'..'9');
return join '', map { $chars[rand @chars] } 1 .. $string_size;
}

my $new_key = OPENAI_API_KEY_START . generate_random_string(22) . OPENAI_API_KEY_MIDDLE . generate_random_string(20);
print $new_key;
```