Select Code to Download

Connection error from localhost on port 25 ()

use Mail::Sendmail;

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

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