Hi

I have been using module Mail::Sendmail . With this module, we can error handle better and very easy to send mail via SMTP. See my sample code below,

use strict;
use warnings;
use Mail::Sendmail;
 

my %mail = (
      To      => 'Bakkiaraj Murugesan <bakkiaraj.murugesan@bakki.com>'
+,
      From    => 'Bakkiaraj Murugesan <bakkiaraj.murugesan@bakki.com>'
+,
      #Bcc     => 'Someone <him@there.com>, Someone else her@there.com
+',
      # only addresses are extracted from Bcc, real names disregarded
      #Cc      => 'Yet someone else <xz@whatever.com>',
      # Cc will appear in the header. (Bcc will not)
      Subject => 'Test message - Bakki',
      'X-Mailer' => "Mail::Sendmail version $Mail::Sendmail::VERSION",
  );
  $mail{Smtp} = '<mysmtp>.<mydomain>'; 
#  $mail{'X-custom'} = 'My custom additionnal header';
  $mail{'message : '} = "Test Message";
  # cheat on the date:
  $mail{Date} = Mail::Sendmail::time_to_date( time() );
  if (sendmail(%mail)) 
  { 
      print "Mail sent OK.\n" 
  }
  else 
  { 
      print "Error sending mail: $Mail::Sendmail::error \n" 
  }
  print "\n\$Mail::Sendmail::log says:\n", $Mail::Sendmail::log;
[download]