warn "PID $$ (parent) forking\n";
unless ($pid = fork) {
  warn "  PID $$ (child) forking again\n";
  unless (fork) {
    warn "    PID $$ (grandchild) exec'ing\n";
    exec "sleep 5";
      die "Couldn't run getSite.pl";
    exit 0;
  }
  warn "  PID $$ (child) exiting\n";
  exit 0;
}
warn "PID $$ (parent) executing waitpid\n";
waitpid($pid,0);
warn "PID $$ (parent) done.\n";

##</code><code>##

warn "PID $$ (parent) forking\n";
unless ($pid = fork) {
    warn "  PID $$ (child) exec'ing\n";
    exec "sleep 5";
      die "Couldn't run getSite.pl";
}
warn "PID $$ (parent) executing waitpid\n";
waitpid($pid,0);
warn "PID $$ (parent) done.\n";