if ($cgi->param('CHECKPOINT')) {
    local *STATE;
    open(STATE, ">/tmp/CGI-CHECKPOINT-".basename($0))
      || open(STATE, ">/tmp/CGI-CHECKPOINT");
    $cgi->save(*STATE);
    close STATE;
  }

##</code><code>##

  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();
  }

##</code><code>##

  CHECKPOINT=1 perl -d MyScript.cgi