... or die "Couldn't execute query: ".$dbh->errstr;
[download]

Second (just to take a wild guess here), your query string looks something like "...&state=TX&..." which means that the way you need to generate your sql statement is more like:

$statement = "SELECT city FROM database WHERE state='$FORM{state}'";
[download]

$statement = "SELECT city FROM database WHERE state=?";

$sth = $dbh->prepare($statement) or die "Couldn't prepare the query: "
+.$sth->errstr;

$rv = $sth->execute($FORM{state}) or die "Couldn't execute query: ".$d
+bh->errstr;
[download]

Oops... see UPDATE comment below.

Last, you're actually going to want to fetch the data from that query and do something with it. That will probably look something like (and there are many ways to do this... but here's one way):

# inside the html <table>
foreach my $row ($sth->fetchall_arrayref) {
   my $state = $row->[0];
   print "... some html or other based on $state...";
}
[download]

Anyway, it appears that you're gonna want to do some documentation reading and possibly looking at more example code.

Oh... and I didn't bother to look any further down than the query, because that is clearly going wrong right now... you need to resolve this problem before you worry about how you the html in exactly whatever way you want. Learn to walk before you learn to run, and all.

Good luck.

P.S. Oh, and I'll leave the rant about how you should be using CGI.pm to someone else :-)

UPDATE: Actually, I made a mistake by not looking closely enough all the way to the bottom... you are fetching the results (which is good). BUT since you are calling $sth->finish and $dbh->disconnect at the top of the script and doing your fetching at the bottom of the script (after finishing and disconnecting), that's gonna break. (Also, this is why I missed the fetching down below... I assumed (like the code would) that once you have disconnect from the DB, you're not doing any further calls against the DB.) What this is means is: move the finish and disconnect to the bottom after you have fetched.

------------
:Wq
Not an editor command: Wq
[download]