use strict;
use warnings;
use Mail::Sendmail qw/ sendmail $error $log /;

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

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