use strict;
use Cwd;
use Lite;
use Mail:Audit;

my $dirpath;
my $divider = 0;
my $input;
my $mailprog = '/usr/lib/sendmail';
my $recipient= 'recip@email.com'; 
my $sender = 'jc@email.com';
my $dirpath = '/var/mail/user/temp'; 

    unless ( chdir $dirpath ) #change to directory 
    { 
	exit(0);
    }
    unless (opendir( CHANGEME, $dirpath )){ 
       # print "\nCan't open $dirpath. ";
	exit (0);
    } 
#find all directory contents OTHER than those that begin in . 
    my @dirContents = grep !/^\./, readdir(CHANGEME); 
    if(!@dirContents){
      #  print "No files were found inside $dirpath\n";
       exit (0);
    }
#forward each email message to recipient
   foreach my $dirContent ( @dirContents ) 
   { 
     open (MESSAGE, "$dirContent");
     my @message = <MESSAGE>;
     my $mail = Mail::Audit->new(data => \@message);
     my $recip = $recipient;
$mail->replace_header('To', $recip);
$mail->resend($recip);
    
   `rm $dirContent`;
   }
   closedir ( CHANGEME );
   exit (0);