#!/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");