#!/usr/bin/perl

use strict;
use warnings;

use POSIX;

my @array;
for my $i (1 .. 100_000) {
    push @array, '-' x 1000;
}

print "before forking\n";
sleep 1;

for (1 .. 10) {
    POSIX::_exit(0) unless fork;
}