Select Code to Download

Select or download this
```
#!/usr/bin/env perl

...
};

EV::run;
```

tcp_server undef, $port, sub {
   my ($fh) = @_;
...
      tls      => "accept",
      tls_ctx  => { cert_file => "my-server-keycert.pem" },
      ...

Select or download this

#!/usr/bin/env perl

...

print "Loop started\n";
EV::run;

Select or download this

julian@work:~/git/LLMAssistant/reference/server$ ./Server4.pl
2023-08-17 19:18:28.000000 -0500 info  AnyEvent: Autodetected model 'A
+nyEvent::Impl::EV', using it.
...
host started
Handle created :AnyEvent::Handle=HASH(0x555b2aa876d0):
^C

Select or download this

julian@work:~/git/LLMAssistant/reference/client$ ./Writer.pl 
2023-08-17 19:18:32.000000 -0500 info  AnyEvent: Autodetected model 'A
+nyEvent::Impl::EV', using it.
...
on_drain:
Write :XX
on_eof:

Select or download this

{
    "LocalAddr": "127.0.0.1",
...
    "cert_file": "cert.pem",
    "key_file": "key.pem"
}