use Mail::Sendmail;
	
	
	
	my %mail;
	
	
	  %mail = (
	      To      => 'pieter.allaer@eu.valor.com',
	      From    => 'pieter.allaer@eu.valor.com',
	      #Bcc     => 'Someone <him@there.com>, Someone else her@there.com',
	      # only addresses are extracted from Bcc, real names disregarded
	      #Cc      => 'pieter.allaer@eu.valor.com',
	      # Cc will appear in the header. (Bcc will not)
	      Subject => "The neutral BOM file for $curJob{jobName} is created",
	      'X-Mailer' => "Mail::Sendmail version $Mail::Sendmail::VERSION",
	  );
	
	
	  $mail{Smtp} = 'euvalor.eu.valor.com';
	  $mail{'X-custom'} = 'My custom additionnal header';
	  $mail{'mESSaGE : '} = "Please process the Neutral BOM file which can be found at $bommgr_scrub_save\n This is an automatic generated email";
	  # cheat on the date:
	  $mail{Date} = Mail::Sendmail::time_to_date( time() - 86400 );
	  sendmail %mail;
	  
	
	  #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;