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