simple-text-template.tts

<% my $person = "johnny" %>

person is <%= $person %>

<%= $var_out %>

text-template-simple.pl

#!/usr/bin/env perl
#

no strict;

use Text::Template::Simple;

open $file , " < simple-text-template.tts";

my $var_out = "outter var here";

my $compiler = Text::Template::Simple->new(
  header => qq{my \$var_out = \"$var_out\";},
);

print $compiler->compile($file);