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