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

	my $tt = Template->new({INCLUDE_PATH => $base_template_dir,
					        INTERPOLATE  => 1}) 
		                   || croak("$Template::ERROR\n");


	$tt->process($template, { params => $params, data => $data } );

}