#! /usr/bin/perl

use strict;
use warnings;

my $var = '<evil>';
my $tmpl = <<EOT;
  <TMPL_VAR NAME=V>
EOT

use HTML::Template::Pro;
my $t = HTML::Template::Pro->new(scalarref => \$tmpl, default_escape => 'JS');
$t->param(V => $var);
print $t->output();
