#!/usr/bin/perl

use Net::SMTP;

use strict;
use warnings;

for(1..2)
{

my $smtp = Net::SMTP->new('smtpauth.earthlink.net', 
                          Hello => 'milkbone.org', Debug => 1) or die "death";

$smtp->auth('batkins86@earthlink.net', '***************************');
$smtp->mail('monitor@milkbone.org');
$smtp->to('test@batkins.com');

$smtp->data();
$smtp->datasend("To: postmaster\n");
$smtp->datasend("\n");
$smtp->datasend("A simple test message\n");
$smtp->dataend();

$smtp->quit;

}

##</code><code>##

Net::SMTP=GLOB(0x81b38e0)<<< 250-puffin.mail.pas.earthlink.net Hello node-423a0c29.lga.onnet.us.uu.net [66.58.12.41]
Net::SMTP=GLOB(0x81b38e0)<<< 250-SIZE 10485760
Net::SMTP=GLOB(0x81b38e0)<<< 250-PIPELINING
Net::SMTP=GLOB(0x81b38e0)<<< 250-AUTH PLAIN LOGIN CRAM-MD5
Net::SMTP=GLOB(0x81b38e0)<<< 250-STARTTLS
Net::SMTP=GLOB(0x81b38e0)<<< 250 HELP
Can't locate object method "_secflags" via package "Authen::SASL::Perl::CRAM_MD5" at /usr/lib/perl5/site_perl/5.8.0/Authen/SASL/Perl.pm line 32.