Select Code to Download

print "<select name=\"m_v\">";
# %list = whats();
...
  print "<option value=\"$key\">$list{$key}</option>";
}
print "</select>";

<select name="m_v"><option value="charlie">1</option><option value="al
+pha">3</option><option value="bravo">5</option></select>