#!/usr/bin/perl

use lib "../../lib";
use utf8;
use warnings;
use strict;

use Mail::Message;
use Data::Dumper;
use Mail::Message::Body::String;

$Data::Dumper::Indent = 1; 

open IN, '<:raw', 'msg' or die;
my $txt  = join '',  <IN>;
#print "TXT=$txt\n";
my $msg  = Mail::Message->read($txt);

my $body  = $msg->body;
my $clone = $body->decoded;
#my $clone = (ref $body)->new(based_on => $body);

$clone->type->attribute(charset => 'utf8');
#warn Dumper $clone;

$msg->body($clone);
#$msg->print;
