#!/usr/bin/perl
use strict;
use warnings;
use MIME::Parser;

# In dieser Datei liegt der Quelltext der Mail
my $mimemail = 'mimemail.txt';

# Parser anlegen
my $parser = MIME::Parser->new() or die "cannot create parser object: $!";

# Mail parsen, MIME::Entity zurueck erhalten
my $entity = $parser->parse_open($mimemail) or die "cannot parse $mimemail: $!";

# Gibt es mehrere Parts?
my @parts = $entity->parts();
# Wenn nicht, nimm $entity selber als Part
push @parts, $entity unless @parts;

# Dekodiere alle Parts
my $num = 1;
for my $part (@parts) {
    print "### Teil $num hat den Typ ", $part->effective_type(), "###\n";
    print "### Header von Teil $num ###\n", $part->head()->as_string, "### Ende Header Teil $num ###\n";

    # bodyhandle() liefert uns ein MIME::Body Objekt mit dem Inhalt des Parts
    my $bh = $part->bodyhandle();
    unless ($bh) {
        print "### Teil $num hat keinen Body ###\n";
    }
    print "### Dekodierter Inhalt Teil $num ###\n", $bh->as_string, "### Ende Teil $num ###\n";
    ++$num;
}