my $kids = 100;
for ( 1.. $kids ) {
    my $pid = fork();
  next if $pid;
    # add code for child to process here
}