Select Code to Download

print $q->start_Select({
  -id       => 'idprd_order_allowed',
...
  -title=>"$titles_prd_order_allowed{$option}"}, "$meanings_prd_order_
+allowed{$option}");
    }
print $q->end_Select();

print $q->popup_menu(
-id       => 'idprd_order_allowed',
-name     => 'prd_order_allowed',
...
-value    => [@low_values_prd_order_allowed],
-labels   => \%meanings_prd_order_allowed
);