DBD::Anydata is nice for this ...

use DBI;

$dbh = DBI->connect("DBI:mysql:$database:$db_server",
                    $user, $password);
$statement = "SELECT city FROM speedtrap WHERE $FORM{state}";

my $anydbh = DBI->connect('dbi:AnyData(RaiseError=>1):');
$anydbh->func( 'combo', 'DBI', $dbh, {sql=>$statement},'ad_import');

print $anydbh->func( 'combo', 'HTMLtable', 'ad_export' );
[download]