#!/usr/local/bin/perl
use strict;
use v5.32;

my @pids;
say "mom: pid=$$";

for my $i ( 0 .. 31 ) {
    my $pid = fork();

    # parent
    if ($pid) {
        say "kid $i: pid=$pid";
        push @pids, $pid;
    }

    # child
    elsif ( defined $pid ) {
        sleep 8;
        exit;
    }

    # fail
    else {
        say "kid $i: $!";
    }
}

kill 'TERM', $_ for @pids;
say "mom: bye.";