Select Code to Download

use Net::IMAP::Client;
use Email::MIME;
...
    last;
}
$imap->logout();

use Mail::IMAPClient;
use Email::MIME;
...
my $obj = $imap->get_bodystructure($msg);

print Dumper($obj);