Select Code to Download

 use Mail::Box::Manager;

...
 foreach (@$folder) { print "Message $_"; }
 $mgr->close()
  or die("Mailbox close error: $!");