my $query = new CGI;
my $template = HTML::Template->new(
   filename => 'search.tmpl',
   associate => $query,
);

##</code><code>##

$template->param(SEARCH => $search);