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).

##</code><code>##

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

        foreach (@$body) { }

        # Or, if you prefer:

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

        foreach (@body) { }

        # Or, furthermore:

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