my $dbh = DBI->connect($data_source, $user, $password);
my $sth = $dbh->prepare("SELECT id, name FROM names_table");
$sth->execute;

print "<form method=\"post\" action=\"path/to/script.cgi\">\n";
print "<select name=\"name\">\n";

while(my($id, $name) = $sth->fetchrow_array) {
   print "<option value=\"$id\">$name</option>\n";
}

print "</select>\n";
print "<input type=\"submit\">\n";
print "</form>\n";

$dbh->disconnect;