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