#!perl -w
use strict;
use DBI;
use HTML::Template;
my $query   = <<'';
SELECT tID,tBID,name
  FROM taxon
 WHERE sessionID=1 AND name<>'baz'

my $template = <<'';
<submission><tmpl_loop results>
    <taxa tBID="<tmpl_var tBID>">
        <taxon tID="<tmpl_var tID>">
            <name><tmpl_var name></name>
        </taxon>
    </taxa></tmpl_loop>
</submission>

my $dbh     = DBI->connect( ... );
my $results = $dbh->selectall_arrayref($query,{Slice=>{}});
my $tmpl = HTML::Template->new
    ( scalarref         => \$template
    , die_on_bad_params => 0
    );
$tmpl->param( results => $results );
print $tmpl->output;
__END__