Select Code to Download

use DBIx::XHTML_Table;

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

print $table->output;

my $state_id = $params->{state_id};
...
    FROM speedtrap
    WHERE state.id = ?
',[$state_id]);