printf( "[%03d] %s\n", $i, $es->header('From'), $es->header('Subject'));
    print "BODY[".$es->body."]\n\n";
    dd $es;

# got:

BODY[]

bless({
  body   => \"",


##</code><code>##

my $es = Email::Simple->new( join '', @{ $imap->get($i) } );

                                               # here!