my $r = shift;
my $request = Apache2::Request->new($r);
my %vars = (request => $request,...); 
$TT->process($file_path, \%vars, $r) || return error($r,$TT->error( ))