#!/usr/bin/perl

use strict;
use warnings;


my $i;
while (1) {
  unless ( ++$i % 20 ) {
    print "$i: ";
    my $p = scalar(<STDIN>);
    while (1) {
      my $pid = wait;
      print "[$pid]\n";
      last if ! $pid or $pid == -1;
    }
  }
  my $pid = fork();
  die "No fork: $!" unless defined $pid;
  print "$pid\n" if $pid;
  next if $pid;
  exit;
}