use DBI;
use CGI ':standard';
use Data::Table;
use strict;

my $dbh = DBI->connect(...);
my $table = Data::Table::FromSQL(
             $dbh,
             "select * from mytable where myfield = ?",
             'whatever');
print header, start_html('Results'), $table->html;

##</code><code>##

$dbh->do("update table set blah = 'foo' where flurb = 'fleem'");