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