#! /usr/bin/perl

use Email::MIME;
my $parsed = Email::MIME->new($message);         #Tome un mensaje de correo
#my $mail = Email::Simple->new($text);
my @received = $mail->header("Received");
my $old_body = $mail->body;                   #salvar el body original
$mail->body_set("Not Perl? You suck!");

print $mail->as_string;                       #convertirlo en string

my $parsed = Email::MIME->new($message);      #Se de cuenta si el mensaje es multipart (contiene adjuntos) y
#my @parts = $parsed->parts;                  #separe la parte de texto plano y la parte de adjuntos

for (@parts) {                                #Y en @parts tienes el conjunto de partes. Cada parte la puedes manipular para
  my $t = $_->content_type;                   #saber tipo, archivo a disponer (si es adjunto) y "cuerpo" como tal.
  my $f = $_->filename;
  my $b = $_->body;
}

use Email::MIME;
my $parsed = Email::MIME->new($message);