Select Code to Download

# print $q->popup_menu(  
        #               -values=>\%ValuesToAppearInDropDownField,
...
        #               -onChange=>"document.$GLOB_FORM_FIELD_NAME.sub
+mit();");

         print '<select name="' . $htmlVariableName . $indexNum . '" o
+nchange="'. "document.$GLOB_FORM_FIELD_NAME.submit();"  . '">';
         my $elementkeys = ();
...
            }
         }
         print '</select>';