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);
[download]

Unfortunately, though it sppears to be proper code and all, it produces the following error:

$VAR1 = bless( {
                 'prop' => {},
                 'string' => 'Can\'t call method "address" on an undef
+ined value at /usr/lib/perl5/vendor_perl/5.8.8/Email/Send/SMTP.pm lin
+e 56, <> line 68.
',
                 'type' => 'failure',
                 'errno' => 1
               }, 'Return::Value' );
[download]

Anyone have any idea what is wrong here?

I can't be bothered to test at the moment but I think your problem is the

@email = <>;
my $message = join "\n", @email;
[download]

where you could possibly better off doing something like

my $message = do { local $/; <> };
[download]

But the join you have is unnecessary as you haven't removed the line endings. A

my $message = join '', @email;
[download]

would be sufficient in your code.

/J\

The my $message = join '', @email; worked perfectly. Thanks.

Now I have other issues about relay being denied because I am trying to keep the originator email address (from header) in place so as to make it a bounce and I cannot relay for addresses outside of my domain. But, that is a problem that I need to fix locally somehow, I guess.

Still, if there were a better way to do this without having to open relay up ...