my $smtpserver = "smtp.domain.com"; my $user = 'user'; my $pass = 'password'; my $mailer = new Net::SMTP::TLS( $smtpserver, Port => 25, User => $user, Password=> $pass, SSL => 0); $mailer->mail($mailfrom); $mailer->to($mailto); $mailer->data; $mailer->datasend($msg->as_string); $mailer->dataend; $mailer->quit;