#!/usr/bin/perl
use warnings;
use strict;
use Mail::Message;

my $msg = <<'_MSG';
Message-ID: <4B4EE288.8070409@aueb.gr>
Date: Thu, 14 Jan 2010 11:23:20 +0200
From: Diomidis Spinellis <dds@example.com>
User-Agent: Thunderbird 2.0.0.23 (Windows/20090812)
MIME-Version: 1.0
To: =?ISO-8859-7?Q?=CB=C1=C6=C1=D1=C9=C4=C7=D3_=D0=C1=CD=C1=C3=C9=D9=D4?=
 =?ISO-8859-7?Q?=C7=D3?= <p.lazaridis@example.com>
Subject: Any subject
Content-Type: text/plain

Hi
_MSG

binmode STDOUT, ":utf8";
$msg = Mail::Message->read($msg);

my $full = $msg->head->study('to');
print "\$full is a ", ref($full), "\n";

print "nrLines=", $full->nrLines, "\n";
print "Name=", $full->Name, "\n";
print "decodedBody=", $full->decodedBody, "\n";

warn ref $full;
my @to = $full->addresses;
for my $a (@to) {
        print "\$a is a ", ref($a), "\n";

        print "To Address=", $a->address, "\n";
        print "To Name (encoded)=", $a->name, "\n";
        print "To Phrase (encoded)=", $a->phrase, "\n";
        my $name = Mail::Message::Field::Full->decode($a->name);
        print "To Name=$name\n";
}

