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

use open OUT => ':encoding(UTF-8)', ':std';

use Template;

'Template'->new->process(\'SUMMARY:[% chr(128054) %] [% dog %] 🐶 Dog Face Test',
                         {dog => "\x{1f436}",
                          chr => \&CORE::chr});