#!/usr/bin/perl

use strict;
use warnings;

use Encode qw(encode decode);
use Template;

my @chars_not_encoded=();
my @chars_encoded=();
#foreach my $code ( hex('3041') .. hex('3096') ){
foreach my $code ( hex('00C0') .. hex('00F0') ){
    push @chars_not_encoded, chr($code);
    push @chars_encoded, encode('utf8', chr($code)) ;
};
my $t =Template->new();

#corrupt output
$t->process("test.tmpl", {lines=>\@chars_not_encoded}, "log_noenc" ) or die $t->error();

#OK
$t->process("test.tmpl", {lines=>\@chars_encoded}, "log_enc" ) or die $t->error();