Select Code to Download

Body    The value of this option should be a reference
        to an array which contains the lines for the
        body of the message. Each line should be
        terminated with `\n' (LF). If Body is given
        then `Mail::Internet' will not attempt to read
        the body from `ARG' (even if it is specified).

        my ($body) = $message->Body();

        foreach (@$body) { }
...
        # Or, furthermore:

        my ($body) = join ('', @{$message->Body()});