Select Code to Download

$cgi->popup_menu(
    -name    => 'unigene_build',
    -values    => [@{$dbh->selectcol_arrayref($sql)}],
    )

$sth_menu->execute();
...
    -values        => [keys(%menu)],
    -labels        => \%menu
    );