use Net::SMTP_auth;

my $smtp = Net::SMTP_auth->new(
 'smtp.att.yahoo.com', 
 Hello => '826michigan.org', 
 Debug => 1);

my $auth_return = $smtp->auth('PLAIN', 'info@826michigan.org', 'plaintext_pw_here');
my $mail_return = $smtp->mail($ENV{USER});
my $to_return = $smtp->to('info@826michigan.org');

$smtp->data();
$smtp->datasend("hi\n");
$smtp->dataend();
$smtp->quit;

print "\nauth_return = $auth_return\n";
print "mail_return = $mail_return\n";
print "to_return = $to_return\n";