# process input
# print HTML page

close STDIN;
close STDOUT;
my $child_pid = fork();
if (!defined $child_pid) {
  die "Can't fork child process";
}
if ($child_pid) {
  # in parent process
  exit;
}
# do long processing here.