No, you should call body for each part separately, like this (not tested!):

my $email=Email::MIME->new($headAndBody);
my @parts = $email->parts();
print $_->body(), "\n" for @parts;
[download]

Note that each part may be multipart, so you should check this.