use Net::SMTP;
  use Authen::SASL;
  
  my $SMTPServer = 'myserver.net';
  my $emailFrom = 'me@here.com';
  my $emailTo = 'you@there.com';
  my $user = 'username';
  my $pass = 'password';
  	
  my $NetSMTP = Net::SMTP->new($SMTPServer, Port=>'587', Timeout=>60, Debug=>1) || die "<br>Unable to open connection.<br>Error Message: $!";
    
  $NetSMTP->auth( user => $user, 
                  pass => $pass,
                ) || die "<br>Auth didn't work: $!<br>";
  
  print "<br>sending from [$emailFrom] to [$emailTo]";
  $NetSMTP->mail($emailFrom);
  $NetSMTP->to($emailTo);
  $NetSMTP->data();
  $NetSMTP->datasend('test text');
  $NetSMTP->dataend();
  $NetSMTP->quit;