Select Code to Download

use Email::Send;
send Sendmail => $message;

use Mail::Sendmail;

...
  sendmail(%mail) or die $Mail::Sendmail::error;

  print "OK. Log says:\n", $Mail::Sendmail::log;