10 my $template=$query->param('template');
11 ($template) || ($template='searchresults.tmpl');
17 my $template = HTML::Template->new(filename => $template, die_on_bad_params => 0);
20 my $sth=$dbh->prepare("select * from biblio where author like 's%' limit 20");
22 while (my $data=$sth->fetchrow_hashref){
29 $template->param(SEARCH_RESULTS => \@results
33 print "Content-Type: text/html\n\n", $template->output;