sub remove_cookie {
        my $cgi = shift;

        $DB::single = 1;

        if ($main::cookie) {
            my $cookie = $cgi->cookie(
                -name   => $main::cookie_name,
                -value  => 1, # also this one can't be 0 or undef!
                -expires=> 1,
                -path   => $main::path,
                -domain => $main::domain,
            );
            print CGI::redirect(-location => $main::full_url, -cookie => [$cookie]);
            exit;
        }
    }