Select Code to Download

use Mail::Internet;
use MIME::Parser;
...
   
     print "Part $i ". $parts[$i]->mime_type . "\n\n";
}