$ perl -Mstrict -Mwarnings -e '
    use utf8;
    use MIME::Lite;
    package MIME::Lite::IO_Handle {
        no warnings "redefine";
        sub print {
            my $self = shift;
            binmode $$self => ":utf8";
            print {$$self} @_;
        }
    };
    MIME::Lite::->new(
        To => "ken",
        From => "ken",
        Type => "text/plain; charset=utf8",
        Subject => "\x{263a} Happy days!",
        Data => "Testing 1 2 3",
    )->send;
'