$main::cookie_name = $cgi->param('cookie_name');
    $main::full_url = $ENV{SERVER_URL} . $ENV{SCRIPT_NAME};

    $main::domain = $cgi->param('domain');
    $main::path = $cgi->param('path');
    $main::cookie_value = $cgi->param('cookie_value');
    $main::domain ||= '.mybc.com';
    $main::path ||= '/';
    $main::cookie_value ||= 'na';

##</code><code>##

    $main::cookie_value ||= 'na';

##</code><code>##

    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,
    );

##</code><code>##

    sub set_cookie {
        my $cgi = shift;

        unless ($main::cookie) {
            $main::cookie = $cgi->cookie(
                -name   => $main::cookie_name,
                -value  => $main::cookie_value,
                -expires=> '+1h',
                -path   => $main::path,
                -domain => $main::domain,
            );

            print CGI::redirect(-location => $main::full_url, -cookie => [$main::cookie]);
            exit;
        }
    }

##</code><code>##

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

##</code><code>##

        my ($r_html_table, $r_html_select) = @{$_[0]}{qw(html_table html_select)};

##</code><code>##

    sub parse_all_cookies {
        my ($r_html_table, $r_html_select) = @{$_[0]}{qw(html_table html_select)};

        $$r_html_table = qq|
                <table border=0 cellpadding=2 cellspacing=3 bgcolor=lightgrey>
                <tr><td><b>Cookie Name</b></td><td><b>Content</b></td></tr>
        |;

        foreach (keys %main::cookies) {
            $$r_html_select .= "<option value='$_'>$_</option>";

            $$r_html_table .= "<tr><td>$_</td><td>".$main::cookies{$_}."</td></tr>";
        }

        $$r_html_table .= "</table>";
    }

##</code><code>##

    my ($html_cookie_table, $html_cookie_select);
    parse_all_cookies({
        html_table => \$html_cookie_table,
        html_select => \$html_cookie_select,
    });

##</code><code>##

    use HTML::Entities;

    my ($html_cookie_table, $html_cookie_select) = parse_all_cookies( \%cookies );

    sub parse_all_cookies {
        my $cookies = shift;
        my $table = qq|
                <table border="0" cellpadding="2" cellspacing="3" bgcolor="lightgrey">
                <tr><td><b>Cookie Name</b></td><td><b>Content</b></td></tr>
        |;

        my $select = '';
        while (my ( $name, $value ) = each %$cookies) {
            encode_entities( $name );
            encode_entities( $value );
            $select .= "<option value='$name'>$name</option>";
            $table .= "<tr><td>$name</td><td>".$value."</td></tr>";
        }

        $table .= "</table>";
        return ( $table, $select );
    }