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