use utf8;
use Template qw();
use Template::Constants qw(DEBUG_PROVIDER);
my $template = Template->new(DEBUG => DEBUG_PROVIDER);
$template->process('foo.tmpl', { x => '☺' });
__END__
[Template::Provider] creating cache of unlimited slots for [ . ]
[Template::Provider] _fetch_path(foo.tmpl)
[Template::Provider] searching path: ./foo.tmpl
[Template::Provider] _fetch(./foo.tmpl)
[Template::Provider] _load(./foo.tmpl, foo.tmpl)
[Template::Provider] _compile(HASH(0x142dc80), <no compfile>)
[Template::Provider] _store(./foo.tmpl, Template::Document=HASH(0x185e268))
[Template::Provider] adding new cache entry
Wide character in print at …/lib/site_perl/5.30.0/x86_64-linux-thread-multi-ld/Template.pm line 167.
123☺456