#!/usr/bin/perl
use warnings;
use strict;

use lib '../lib';

use Mail::Message;

my $data = "asijfaslkj\n";
my $from = 'me';
my $to   = 'you';
my $subject = 'subject';

my $body = Mail::Message::Body->new(data=>$data);
my $enc  = $body->encode(transfer_encoding=>'quoted-printable');

my $msg  = Mail::Message->buildFromBody($enc, From=>$from,
   To=>$to, Subject=>$subject);

$msg->print;
