use Net::SMTP_auth;
sub smtpauthsend{
my($filename) = @_;
$smtp = Net::SMTP_auth->new($smtpserver);
$smtp->auth('LOGIN', $username, $password);
$smtp->mail('aaa@aaa.aaa.com');
$smtp->to('aaa@aaa.aaa.com');
$smtp->cc('aaa@aaa.aaa.com');
$smtp->data();
$smtp->datasend("From: aaa\@aaa.aaa.com\n");
$smtp->datasend("To: aaa\@aaa.aaa.com\n");
$smtp->datasend("Cc: aaa\@aaa.aaa.com\n");
$smtp->datasend("Subject: HELLO\n");
$smtp->datasend("\n");
$smtp->datasend("A simple test message\n");
$smtp->dataend();
$smtp->quit;
return 1;
}