#!/usr/bin/perl

# ntimes <command> - fork and run it

die ("Usage: ntimes TIMES COMMAND\n",
     "Forks TIMES and each fork runs the COMMAND.\n") if ($#ARGV != 1);
for my $i (1..$ARGV[0]) {
    my $pid = fork();
    die ("$0: cannot fork, $!\n") unless (defined($pid));
    if (!$pid) {
	system($ARGV[1]);
	exit();
    }
}

while (1) {
    my $kid = wait();
    last if ($kid < 1);
    print ("$0: Child $kid terminated\n");
}
print ("All forks have finished, done.\n");
