Select Code to Download

while (my $something = $sth->fetchrow_hashref()) {
     $option_list .= qq~<option value="~ . $something->{id} . qq~">~ .
+ $something->{cat_name} . qq~</option>\n~;
}

popup_menu(-name=>"somename1",
-values=>[%options],
-labels=>[\%options],
-default=>$somename1_value);

    $sth1 = $dbh->prepare (qq{ SELECT * FROM categories });
    $sth1->execute();
...
-labels=>{\%cat_options},
-default=>$row->{cid},
-class=>"formfield_left")