#!/usr/bin/perl
use warnings;
use strict;
use MIME::Lite;
use Net::SMTP_auth;

my $Servername = "mail.foobar.com";
my $Port = 587;
my $Username = "z+foobar.com";
my $Password = "foobar-secret";
my $Auth_type = 'LOGIN'; #PLAIN, LOGIN, CRAM-MD5#

my $msg = MIME::Lite->new( 
  From  => 'z@foobar.com',
  TO    => 'zentara@zentara.net', 
  Subject  => 'Testing Text Message with auth',
  Data     => 'How\'s it going. Sent with  Net-SMTP_auth' 
  );

#my $msgbody = $msg->as_string();

#my $smtp = Net::SMTP_auth->new($Servername, Port=> $Port );
my $smtp = Net::SMTP_auth->new($Servername, Port=>$Port, Debug => 1 );
$smtp->auth( $Auth_type, $Username , $Password ); 

$smtp->mail('zentara@zentara.net');
$smtp->to('zentara@zentara.net');

$smtp -> data();
$smtp -> datasend( $msg->as_string() );
$smtp -> dataend();
$smtp -> quit;