Select Code to Download

<input type="radio" name="rad_server_type" value="xml">XXX;
<input type="radio" name="rad_server_type" value="org">YYY;

 print $q->popup_menu(-name=>'xml_server',-values=> \@array_of_selecti
+ons);