L3TDE-IRC/bin/l3tde.pl

#!/usr/bin/env perl

use v5.34.1;

use strict;
use warnings;

use L3TDE::Bot;

L3TDE::Bot->create_bots;

$SIG{CHLD} = 'IGNORE';
for my $bot (@{L3TDE::Bot->find}) {
    my $pid = $bot->start;
}
while ((my $pid = wait) != -1) {
    say "Reaped $pid";
}