Select Code to Download

    $main::cookie_name = $cgi->param('cookie_name');
    $main::full_url = $ENV{SERVER_URL} . $ENV{SCRIPT_NAME};
...
    $main::domain ||= '.mybc.com';
    $main::path ||= '/';
    $main::cookie_value ||= 'na';

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

    my $cookie = $cgi->cookie(
        -name   => $main::cookie_name,
...
        -path   => $main::path,
        -domain => $main::domain,
    );

    sub set_cookie {
        my $cgi = shift;
...
            exit;
        }
    }

    sub remove_cookie {
        my $cgi = shift;
...
            exit;
        }
    }

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

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

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

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

    use HTML::Entities;

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