Select Code to Download

 if ($MIME_entity->parts > 0)
{
...
      }
   }
}

#!/usr/bin/perl
...
   print ">> Not a multipart\n";
   print $body;
}