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