Select Code to Download

my $opts = $dbh->selectcol_arrayref(<<"");
  SELECT DISTINCT market
...
print qq{<select name="market" size="1">};
print map { qq{<option value="$_">$_</option>\n} } @$opts;
print qq{</select>};

print $q->popup_menu(-name => 'market',
                     -size => 1,
                   -values => $opts);