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

use utf8;

use lib '../../lib';
use Mail::Message::Field::Address;
use Mail::Address;

my $to = 'Веселая Работка <dima@mailbox.ru>';
my ($ma) = Mail::Address->parse($to);
my $to_address = Mail::Message::Field::Address->coerce($ma, charset =>
'utf-8', encoding => 'B');
