my $r = shift;

# template initialization not shown
my $var = $r->dir_config('var');
$vars{'message'}  = "Var is: $var";
$vars{'message'} .= '<br />'.Dumper(\%ENV);

$template->process("hello.html", \%vars) || die $template->error();