#!/usr/bin/perl
my ($foo, %kid) = rand;
for (1..10) {
    $kid{my $cpid = fork} = undef;
    defined $cpid or delete( $kid{""}), next;
    $cpid and next;
    print rand, $/;
    exit(0);
}
delete $kid{+wait} while %kid;
__END__
0.292121652604209
0.292121652604209
0.292121652604209
0.292121652604209
0.292121652604209
0.292121652604209
0.292121652604209
0.292121652604209
0.292121652604209
0.292121652604209