#!/usr/bin/perl -w

use strict;
use warnings;
use Data::Dumper;
use Mail::Audit;
use MIME::Parser;

my $mail = Mail::Audit->new;
my $orginalto = $mail->to();
my @newto = split (/@/, $orginalto);
unshift (@{$mail->body}, "$newto[0]\n");

my $parser = new MIME::Parser;
my @orginalbody = (@{$mail->body});
my $entity = $parser->parse_data(\@orginalbody);
my $body = $entity->bodyhandle();

my @lines = $body->as_lines();
unshift (@lines, "$newto[0]\n"); 
@{$mail->body} = @lines;

$mail->resend("NAME\@DOMAIN");

#!/usr/bin/perl -w 

use strict; 
use warnings; 
use Data::Dumper; 
use Mail::Audit; 

my $mail = Mail::Audit->new; 
my $orginalto = $mail->to(); 
my @newto = split (/@/, $orginalto); 
unshift (@{$mail->body}, "$newto[0]\n"); 

$mail->resend("NAME\@DOMAIN"); 

#!/usr/bin/perl

use strict;
use warnings;
use Data::Dumper;
use Mail::Audit;
use MIME::Entity;

my $mail = Mail::Audit->new;
my $originalto = $mail->to();
# Das soll immer etwas sinnvolles liefern? ...
my ($newto) = split (/@/, $originalto, 2);

if ($mail->is_mime) {
    # Erstelle neuen MIME-Part mit der Adresse
    my $newpart = MIME::Entity->build(
        Type => 'text/plain',
        Encoding => 'quoted-printable',
        Data => [ $newto ],
    ) or die "kann keinen neuen MIME-Part anlegen: $!";
    # Fuege den neuen MIME-Part zur Mail hinzu
    $mail->add_part ($newpart, 0) or die "kann MIME-Part nicht hinzufuegen: $!";
} else {
    unshift @{$mail->body}, "$newto\n", "\n";
}

print @{$mail->body()}, "\n";
# $mail->resend('root@localhost');