Select Code to Download

my %email;
my @parts = qw/From To Subject cc bcc body/;
...
#  also fixed bad quotation mark and confusion in variable names,
#  and added deletion of "EOT" from $email{body})