use Net::SMTP_auth;
$smtp = "smtpout.secureserver.net:3535";
$username = 'joesmith@foo.com';
$password = 'gsx5f3d3';
$smtp = Net::SMTP_auth->new("$smtp");
$smtp->auth('PLAIN', $username, $password);