sub insistent_fork {
  my $pid = undef;
  FORK: {
    if (defined ($pid = fork())) {
      return $pid;
    }
    elsif ($! =~ /No more process/) {
      sleep 5;
      redo FORK;
    }
    else {
      die "Can't fork: $!\n";
    }
  }
}