Select Code to Download

$parser = MIME::Parser->new( );
$parser->ignore_errors(1);
...
                                my $tmp_content_type = $tmp_part->mime
+_type;
                                my $tmp_body = $tmp_part->as_string;

if ($tmp_body =~ /Content-Transfer-Encoding: base64/i)
...
                                                $MessageBody = "  ". $
+tmp_part->bodyhandle->as_string;
                                        }

if ($tmp_body =~ /Content-Transfer-Encoding: base64/i)
...
                                                $MessageBody = "  ". d
+ecode('UTF-8',decode_base64($tmp_part->bodyhandle->as_string));
                                        }