my $mail = Mail::Audit->new(data => \@message);

$mail->bodyhandle;
my @body = $mail->bodyhandle->as_lines;
if ($msgtyp ne 'reply') {
    my $orig_from = $mail->get('Reply-To') ? $mail->get('Reply-To') : $mail->get('From');
    unshift @body , "RPLYFROM: $replyfrom";
    unshift @body , "ORIGFROM: $origfrom";
    if (my $io = $mail->open("w")) {
        $io->print($_) foreach(@body);
        $io->close;
    }
}

$mail->delete_header('Reply-To') if ($mail->delete_header('Reply-To'));
$mail->delete_header('Received'); 
$mail->delete_header('Message-Id'); 
$mail->replace_header('From', $orig);
$mail->replace_header('To', $recip);

$mail->resend($recip);