sub _fill_in {
    my ($template, %params) = @_;

    $params{include} = sub {
        _fill_in(shift, %params, @_);
        return '';
    };

    my $template = Text::Template->new(
        SOURCE => catfile($templates_path, "$template.tmpl"));
    $template->fill_in(HASH => \%params, OUTPUT => \*STDOUT);
}

##</code><code>##

{include('_header', title => 'Page title')}
<p>Some text...</P>
{include('_footer')}