#!/usr/bin/env perl
use strict;
use warnings;
use MIME::Lite::TT::HTML;

my %params;

$params{umlaut} = 'fööbär';
#Encode::_utf8_on($params{umlaut});

my %options= (
  INCLUDE_PATH => '.',
  ENCODING => 'UTF-8',
);

my $msg = MIME::Lite::TT::HTML->new(
          From        =>  'admin@example.com',
          To          =>  'frank@example.com',
          Subject     =>  'Your recent purchase',
          Template    =>  {
                              text    =>  'revsys.txt.tt',
                              html    =>  'revsys.html.tt',
                          },
          Charset     => 'utf8',
          Encoding    => '8bit',
          TmplOptions =>  \%options,
          TmplParams  =>  \%params,
);

binmode STDOUT, ':utf8';
print "Should be: ", $params{umlaut},$/;
print '-' x 79,$/;
print $msg->as_string;