I am trying to use Net::SMTP_auth to send emails because our mail provider requires authentication.

The code (see below) works on our Linux Server that is running Perl v5.6.0 but fails authentication on our server that is running Perl v5.8.0

Any ideas on why this same code will work on Perl 5.6.0 but not on Perl 5.8.0?

Thanks in advance.

Code:

my $email = MIME::Lite->new(
                        From => $from_address,
                        To => \@to_addresses,
                        Cc => \@cc_addresses,
                        Bcc => \@bcc_addresses,
                        Subject => 'test',
                        Type => 'multipart/alternative',
);

$email->attach(Type => 'text/html',Data => "HTML Text");
$email->attach(Type => 'text/plain',Data => "Plan Text");

# get the message
my $message_body = $email->as_string();


# Create a new SMTP object
my $smtp = Net::SMTP_auth->new($host, Timeout => 60, Debug => 1) or
   die "Couldn't connect to server";

my $res = $smtp->auth('LOGIN',$user_name,$password);

$smtp->mail($from_address);
$smtp->to(@to_addresses);
$smtp->cc(@cc_addresses);
$smtp->bcc(@bcc_addresses);
$smtp->data();
$smtp->datasend($message_body);
$smtp->dataend();

# Close the connection
$smtp->quit();
[download]