Select Code to Download

use DBI;
use CGI ':standard';
...
             "select * from mytable where myfield = ?",
             'whatever');
print header, start_html('Results'), $table->html;

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