#!/usr/local/bin/perl -w
use Mail::Sender;

  $sender = {};
  if ($sender->MailMsg({
   smtp => 'ECMAIL7.internal.lacoe.edu',
   from => 'mansell_steven@lacoe.edu',
   to =>'sgmansell@gmail.com',
   subject => 'this is a test',
   msg => "Hi Steve.\nHow are you?"
 }) < 0) {
  print "if must be less than 0\n";
  die "$Mail::Sender::Error\n";
 }
 print "Mail sent OK."