What's going on here? Too much code! It's simpler than that :)

#!/usr/bin/perl

# http://perlmonks.org/?node_id=1137416

use strict;
use warnings;
$| = 1;

for my $i (1..33)
  {
  $i > 10 and warn("waiting...\n"), wait;
  fork or warn("client $i started\n"), sleep(60), die("client $i ended
+\n");
  sleep 5;
  }
1 while wait > 0; # reap the rest
warn "all clients finished\n";
[download]

replace the "fork or warn..." with: fork or exec("yourprocess"), die "exec failed $!";