use strict;
use warnings;

use Email::Send;
use Email::Simple;

my %received;
my @email;
#my $box = Email::Folder->new('/home/jonathan/mail/Recruiters/');

@email = <>;
my $message = join "\n", @email;
my $mail = Email::Simple->new($message);

$mail->header_set('To','target@host.com');

my $sender = Email::Send->new({mailer => 'SMTP'});
#my $sender = Email::Send->new({mailer => 'Sendmail'});
$sender->mailer_args([Host => 'localhost']);
my $rv = $sender->send ($mail->as_string());

use Data::Dumper;
print Dumper($rv);
my @available = $sender->all_mailers;
print Dumper(@available);