#!/usr/bin/env perl
use strict;
use warnings;

use Text::Xslate;
use FindBin qw($Bin);

my $xslate = Text::Xslate->new({
    syntax    => 'TTerse',
    path      => "$Bin/tmpl",
    cache_dir => "$Bin/cache",
});

my @tmpls = qw/ contentA.tt contentB.tt /;
for my $tmpl (@tmpls) {
    print "\@\@$tmpl\n";
    print $xslate->render($tmpl);
}