#!/usr/bin/perl

use strict;

use lib '../lib';
use Mail::Message;
use Mail::Message::Body::Lines;

my @lines = ("line1\n", "line2\n");

my $body = Mail::Message::Body::Lines->new
  ( data => \@lines
  , mime_type => 'text/html'
  , charset => 'UTF-8'
  ) ;

warn "## ", $body->charset;
warn "## Encoding\n";
my $enc  = $body->encode(transfer_encoding => 'quoted-printable');
$enc->print;

print "\n\n";
my $head = Mail::Message::Head->new;
my $msg  = Mail::Message->new(head => $head);
$msg->body($enc);

$msg->print;

