Select Code to Download

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

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

...
    print $message->get('Subject') || '<no subject>', "\n";
    print "into foreach loop","\n";
# etc,etc