use strict;
use diagnostics;
use Mail::SendMail;

my %mail=( To	   => 'xxxxxxx@xxxxxx.com',
   	   From	   => 'yyyyyyy@hyyyyy.edu',
           Message => "Message Body"
   	  );

   sendmail(%mail) or die $Mail::SendMail::error;
   print "Log Message:\n", $Mail::SendMail::log;