problem with Mail::Mailer

[Geoffrey F. Green]

Hello:

I'm trying to get the following (blissfully short) script to work.  As you
can see, it's supposed to send mail.  And when I run it, it returns without
an error.  But no mail is ever sent.

Note that I do have Net::SMTP installed, and I am able to send mail directly
using Net::SMTP.

Any thoughts?  Thanks.

 - geoff

(And yes, the "xxxx" in $server is for list-posting purposes only.)

(Running OS X 10.1.4, if it matters.)

==================
#!/usr/bin/perl -w

use strict;
use Mail::Mailer;

my $server = "xxxxxxxxx";

my %headers = (
    From    => '[EMAIL PROTECTED]>',
    To        => '[EMAIL PROTECTED]',
    Subject    => 'Does Mail::Mailer work?'
    );

    my $body = "We'll see";

    my $mailer = new Mail::Mailer ("smtp", Server => $server);
    $mailer->open(\%headers);
    print $mailer $body;
    $mailer->close;


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]