my $cgi;
  if ($ENV{'CHECKPOINT'}) {
    local *STATE;
    open(STATE, "/tmp/CGI-CHECKPOINT-".basename($0))
      || open(STATE, "/tmp/CGI-CHECKPOINT");
    $cgi = CGI->new(*STATE);
    close STATE;
    $cgi->delete('CHECKPOINT');
  } else {
    $cgi = CGI->new();
  }