(E-MAIL) MIME::Base64, Attachments automatisch erkennen

[Rolf]

Hallo Forumer,

mit dem wunderschönen Perl Modul "Mail::POP3Client;" bin ich grad dabei ein CGI zu schreiben was nach der Eingabe von Benutzername, Passwort und Pop3Hostname alle Pop-Mails im Browser auflistet, das klappt soweit ganz gut, reine Text-Mails sind einwandfrei lesbar.

Wehe aber wenn die Mail ein Attachment enthält! Dann sieht alles ganz anders aus, irgendwo steht dann in der Mail:

... # schnipp
------=_NextPart_000_0023_01BFC33B.86FD57A0
Content-Type: image/gif;
name="Trixi.gif"
Content-Transfer-Encoding: base64
Content-Disposition: attachment;
filename="Trixi.gif"

R0lGODlhfAEFAfcAAA0ODxENDg0VDxMUDw4PEhMPEg4YFBUaGSYdGw4iDxIiDw8mFRklHA81GBQ4
GyQnHjYoHiU4HjU4HQwPJA8ZIxUdIxUeMigeJA8oIx0mJA83Ihk3JA8nMhwqNA80Mx4zOCcrJTUt
... # schnapp

Ok, ich nehme mit der Maus den ganzen Kram nach der Leerzeile "filename="Trixi.gif" und mach damit folgendes:

use MIME::Base64;

$bin_datei =
"R0lGODlhfAEFAfcAAA0ODxENDg0VDxMUDw4PEhMPEg4YFBUaGSYdGw4iDxIiDw8mFRklHA81GBQ4
GyQnHjYoHiU4HjU4HQwPJA8ZIxUdIxUeMigeJA8oIx0mJA83Ihk3JA8nMhwqNA80Mx4zOCcrJTUt
..."; # hier gekürzt

$gif = decode_base64($bin_datei);

open GIF, ">test.gif";
binmode GIF;
print GIF $gif;
close GIF;

-> schreibe das File auf meine Festplatte - und geht.

Und nun soll das Alles im Browser so aussehen, dass nur der Text der Mail im Browser angezeigt wird und das Attachment (egal ob gif, zip oder usw) als Link. Ich suche also eine PERL-Lösung zum Parsen einer Mail in {Subject, From, To, Body, Attachment} oder muss ich das Velo neu erfinden?

Viele Grüße, Rolf