sub body{
    my $self = shift;
    my $te = HTML::Template->new(%{$self->{TECFG}}, scalarref => \$self->{BODY});
    $te->param(%{$self->{STASH}});
    return $te->output;
}