#!/usr/bin/env perl

use v5.30.0;

use strict;
use warnings;

use Carp qw/confess/;

use Cualsea::Server::Loop;

my $loop = Cualsea::Server::Loop->new;

while (1) {
    try {
        $loop->run;
    } catch {
        confess $_;
    };
}