my $msg = Mail::Message->read($data);
   my @addr = $msg->get('To')->addresses;

##</code><code>##

my $mgr = Mail::Box::Manager->new();

my $folder = $mgr->open($folder_file) or die "Cannot open Folder","\n";

my @email_addr;
foreach my $message ($folder->messages)
    {
    print $message->get('Subject') || '<no subject>', "\n";
    print "into foreach loop","\n";
# etc,etc