#!/usr/bin/env perl

use Mail::Message;
use Mail::Message::Body::Lines;
use Encode;

use utf8;

my $body = Mail::Message::Body::Lines->new(
#   data     => encode(utf8 => '€'),
    data     => '€',
    charset  => 'PERL',
    mimetype => 'text/plain'
)->encode(
    transfer_encoding => 'Quoted-printable'
   ,charset => 'utf8'
);

my $msg  = Mail::Message->buildFromBody($body);

open OUT, '>:raw', '/tmp/out';
$msg->print(\*OUT);
close OUT;

