PerlでSMTP Authメールの送信

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;
}