my $pid = fork();
if ($pid) {
  push @pids, $pid;
}
elsif (defined $pid) {
  exec($cmd);
  die "Cannot exec '$cmd': $!\n";
}
else {
  die "Cannot fork: $!\n"
}