#!/usr/bin/perl
use strict;
use warnings;
use utf8;
use open ':utf8';
use MIME::Lite;

my $msg = MIME::Lite->new(
    To       => 'example@example.com',
    Subject  => 'UTF-8 Test',
    Encoding => '8bit',
    Type     => 'text/plain',
    Data     => 'Hälöö',
);
$msg->attr('content-type.charset' => 'UTF8');
$msg->send;