##
use HTML::Template;
#tell H-T what page to display
$template = HTML::Template -> new(filename => "displaylists.tmpl");
#connect to DB, SELECT, etc. then...
@data = $sth->fetchrow_array();
#assign data to placeholders
$template ->param(listfor => $data[1], list=> $data[2]);
print "Content-type: text/html\n\n";
print $template->output; #display html