my $pid;

  #
  # Fork the current process.
  #

  if (!defined ($pid = fork)) { 
      DieNice("Unable to fork: $!\n");
  } elsif (! $pid) { 
      # This is the child fork, for processing.
      close(STDIN); close(STDOUT); close(STDERR);

  } else {
      # This is the parent fork, for the browser.
      print $query->redirect("http://$servername/wbnorm/cache/status.html");

      # Apache, you will answer to me!
      exit;
  }

  #
  # Calculations continue as normal here
  #