Select Code to Download

   %labels = ('eenie'=>'your first choice',
          'meenie'=>'your second choice',
...
   print $query->popup_menu('menu_name',
                ['eenie','meenie','minie'],
                'meenie',\%labels);