Select Code to Download

<form action="color.pl" method="post">
<p>Your name: <input type="text" name="name" 
...
  value="<TMPL_VAR NAME=COLOR>"></p>
<p><input type="submit"></p>
</form>

<p>Hello, <b><TMPL_VAR NAME=NAME></b>. A little
birdy told me your favorite color is <b><TMPL_VAR NAME=COLOR></b>.

use CGI;
use HTML::Template;
...

my $t = HTML::Template->new(filename => "$template.tmpl", associate =>
+ $cgi);
print $t->output;

use DBI;
use CGI;
...

print $cgi->header;
print $t->output;

<table border="1">
<tr><th>ID</th><th>NAME</th><th>PRICE</th></tr>
...
</TMPL_LOOP>

</table>

[snip]

...
}

$t->param(ROWS => $rows, TOTAL => $sum);

<table border="1">
<tr><th>ID</th><th>NAME</th><th>PRICE</th></tr>
...
</table>

<p>The total is <TMPL_VAR NAME=TOTAL></p>

use DBI;
use CGI;
...
print $t->output;

$dbh->disconnect;