use DBIx::XHTML_Table;

my $table = DBIx::XHTML_Table->new($dbh);

$table->exec_query("SELECT city FROM speedtrap WHERE $FORM{state}");

print $table->output;