Perl MIME::Lite text/plain probléma

Sziasztok!

Perl MIME::Lite-al szeretnék levelet küldeni, ami tartalmaz egy szöveges és egy html részt, valamint néhány kép csatolmányt, amikre a html-ből a cid:image névvel hivatkozom.

Egyelőre Thunderbird-el tesztelem a leveleket, a html rész tökéletesen jelenik meg, viszont mikor plain text nézetre váltok, akkor nem az általam küldött szöveges tartalom jelenik meg, hanem a html tartalomnak egy butított formája, amit nem teljesen értek, mert a levél forrásában benne van az általam küldött szöveges tartalom.

A kód, amivel próbálkozom:


$msg = MIME::Lite->new(
From => $felado,
To => $kuldo,
Reply-To => $felado,
Subject => "Proba",
Type =>'multipart/alternative',
);
$msg->attr('content-type.charset' => 'UTF8');


$msg->attach(
Type => 'text/plain',
Data => $text,
Encoding => 'quoted-printable',
);

my $att_html = MIME::Lite->new(
Type => 'multipart/related',
);

$att_html->attach(
Type => 'text/html',
Data => $html,
Encoding => 'base64',
);

$att_html->attach(
#Encoding => 'base64',
Type => 'image/jpg',
Id => 'proba1.jpg',
Path => $mail_images.'/proba1.jpg',
#Disposition => 'inline',
Content-Location => 'cid:proba1.jpg',
);

$msg->attach($att_html);

$msg->send();

Már próbáltam mindenféle variációban és kódolásokkal küldeni, de sehogy nem sikerült megoldanom a problémát.

Ha valaki tud segíteni, azt előre is nagyon köszönöm.

Zoli