#!"C:\xampp\perl\bin\perl.exe"

use strict; 
use warnings; 
use MIME::Lite;

my  $Message = new MIME::Lite From =>'robot@localhost.localdomain',
   		      To =>'robot@localhost.localdomain', Subject =>'test' ,
		      Type =>'TEXT',
		      Data =>'test register';
$Message->attr("content-type" => "text/html; charset=iso-8859-1");
$Message->send_by_smtp('localhost:25');    

print "Content-Type: text/html\n\n";
print "Send email from windows 10 ok";