sub Render
{
	my $proto = shift;
	my ($params, $data, $template, $base_template_dir) = @_;

	my $engine = HTML::Template::Expr->new(filter => \&ht_tt2_filter,
											 filename => $base_template_dir.'/'.$template, 
											 die_on_bad_params=>0,
											 encoding => ':utf8');

    $engine->param($params);
    $engine->param($data);
    
    print $engine->output;

}