Select Code to Download

        print "<tr><td><B>Category:</B></td><td>";
        print $query->popup_menu(
...
                    -values=>['a', 'b', 'c'],
                    -default=>'None');
        print "<td></tr>\n";

        print "<tr><td><B>Category:</B></td><td>";
        print $query->popup_menu(
...
                    -values=>@publication_categories,
                    -default=>'None');
        print "<td></tr>\n";