use Mail::Sendmail;

  print "Testing Mail::Sendmail version $Mail::Sendmail::VERSION\n";
  print "Default server: $Mail::Sendmail::mailcfg{smtp}->[0]\n";
  print "Default sender: $Mail::Sendmail::mailcfg{from}\n";

  %mail = (
      #To      => 'No to field this time, only Bcc and Cc',
      From    => 'Kathleen@integrasoft.info',
      Bcc     => 'gopal.r@integrasoft.info',
      # only addresses are extracted from Bcc, real names disregarded
      Cc      => 'gubendran.l@integrasoft.info,senthilkumar.k@integras
+oft.info',
      # Cc will appear in the header. (Bcc will not)
      Subject => 'HELLO FRIENDS',
      'X-Mailer' => "Mail::Sendmail version $Mail::Sendmail::VERSION",
  );


  $mail{Smtp} = '192.168.1.5';
#  $mail{'X-custom'} = 'My custom additionnal header';
  $mail{'mESSaGE : '} = '
  Hi Friends,
  
  I would like to meet you both of You. When shall we meet.
  
  Bye!!! Take Care!!!
  
  Yours Lovingly,
  Kathleen Dooty.
  ';
  # cheat on the date:
  $mail{Date} = Mail::Sendmail::time_to_date( time() - 86400 );

  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]