use strict;
use warnings;
                                                                                
use Email::Send;
use Email::Folder;
                                                                                
my %received;
my $box = Email::Folder->new('/home/jonathan/mail/Recruiters/');
while ( my $mail = $box->next_message )
{
                                                                                
   $mail->header_set('To','jonathan@localhost');
   send SMTP => $mail->as_string(), 'localhost';
}