Anonymous

do {
  my $b = bless({
    ME_Bodyhandle  => bless({ MB_Path => ".\\msg-3144-1.txt" }, "MIME::Body::Fil
e"),
    ME_Parts       => [],
    mail_inet_head => bless({
                        mail_hdr_foldlen   => 79,
                        mail_hdr_hash      => {
                                                "Content-Transfer-Encoding" => [
\"Content-Transfer-Encoding: quoted-printable\n"],
                                                "Content-Type" => [\"Content-Typ
e: text/plain;\n\tcharset=\"iso-8859-2\"\n"],
                                              },
                        mail_hdr_lengths   => {},
                        mail_hdr_list      => ['fix', 'fix'],
                        mail_hdr_mail_from => "KEEP",
                        mail_hdr_modify    => 0,
                      }, "MIME::Head"),
  }, "MIME::Entity");
  my $d = bless({
    ME_Bodyhandle  => bless({ MB_Path => ".\\msg-3144-2.html" }, "MIME::Body::Fi
le"),
    ME_Parts       => [],
    mail_inet_head => bless({
                        mail_hdr_foldlen   => 79,
                        mail_hdr_hash      => {
                                                "Content-Transfer-Encoding" => [
\"Content-Transfer-Encoding: quoted-printable\n"],
                                                "Content-Type" => [\"Content-Typ
e: text/html;\n\tcharset=\"iso-8859-2\"\n"],
                                              },
                        mail_hdr_lengths   => {},
                        mail_hdr_list      => ['fix', 'fix'],
                        mail_hdr_mail_from => "KEEP",
                        mail_hdr_modify    => 0,
                      }, "MIME::Head"),
  }, "MIME::Entity");
  $b->{mail_inet_head}{mail_hdr_list}[0] = ${$b->{mail_inet_head}{mail_hdr_hash}
{"Content-Type"}[0]};
  $b->{mail_inet_head}{mail_hdr_list}[1] = ${$b->{mail_inet_head}{mail_hdr_hash}
{"Content-Transfer-Encoding"}[0]};
  $d->{mail_inet_head}{mail_hdr_list}[0] = ${$d->{mail_inet_head}{mail_hdr_hash}
{"Content-Type"}[0]};
  $d->{mail_inet_head}{mail_hdr_list}[1] = ${$d->{mail_inet_head}{mail_hdr_hash}
{"Content-Transfer-Encoding"}[0]};
  (
    "text/plain;\n\tcharset=\"iso-8859-2\"\n",
    $b,
    "text/html;\n\tcharset=\"iso-8859-2\"\n",
    $d,
  );
}









"text/plain;\n\tcharset=\"iso-8859-2\"\n"do {
  my $a = bless({
    ME_Bodyhandle  => bless({ MB_Path => ".\\msg-3144-1.txt" }, "MIME::Body::Fil
e"),
    ME_Parts       => [],
    mail_inet_head => bless({
                        mail_hdr_foldlen   => 79,
                        mail_hdr_hash      => {
                                                "Content-Transfer-Encoding" => [
\"Content-Transfer-Encoding: quoted-printable\n"],
                                                "Content-Type" => [\"Content-Typ
e: text/plain;\n\tcharset=\"iso-8859-2\"\n"],
                                              },
                        mail_hdr_lengths   => {},
                        mail_hdr_list      => ['fix', 'fix'],
                        mail_hdr_mail_from => "KEEP",
                        mail_hdr_modify    => 0,
                      }, "MIME::Head"),
  }, "MIME::Entity");
  $a->{mail_inet_head}{mail_hdr_list}[0] = ${$a->{mail_inet_head}{mail_hdr_hash}
{"Content-Type"}[0]};
  $a->{mail_inet_head}{mail_hdr_list}[1] = ${$a->{mail_inet_head}{mail_hdr_hash}
{"Content-Transfer-Encoding"}[0]};
  $a;
}"text/html;\n\tcharset=\"iso-8859-2\"\n"do {
  my $a = bless({
    ME_Bodyhandle  => bless({ MB_Path => ".\\msg-3144-2.html" }, "MIME::Body::Fi
le"),
    ME_Parts       => [],
    mail_inet_head => bless({
                        mail_hdr_foldlen   => 79,
                        mail_hdr_hash      => {
                                                "Content-Transfer-Encoding" => [
\"Content-Transfer-Encoding: quoted-printable\n"],
                                                "Content-Type" => [\"Content-Typ
e: text/html;\n\tcharset=\"iso-8859-2\"\n"],
                                              },
                        mail_hdr_lengths   => {},
                        mail_hdr_list      => ['fix', 'fix'],
                        mail_hdr_mail_from => "KEEP",
                        mail_hdr_modify    => 0,
                      }, "MIME::Head"),
  }, "MIME::Entity");
  $a->{mail_inet_head}{mail_hdr_list}[0] = ${$a->{mail_inet_head}{mail_hdr_hash}
{"Content-Type"}[0]};
  $a->{mail_inet_head}{mail_hdr_list}[1] = ${$a->{mail_inet_head}{mail_hdr_hash}
{"Content-Transfer-Encoding"}[0]};
  $a;
}