use utf8;
use Template qw();
my $template = Template->new;
STDOUT->binmode(':encoding(UTF-8)');
$template->process('foo.tmpl', { x => '☺' })
    or die $template->error;
__END__
123☺456