# Set up your loop here
next unless open (MESSAGE, "message.file");
my @message = <MESSAGE>;
my $mail = Mail::Audit->new(data => \@message);
my $recip = 'email@address.com';
$mail->replace_header('To', $recip);
$mail->resend($recip);
next;