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