use strict "vars";
my ($en, $en_f);
use MIME::Entity;
my $From       = '<e-mail address>'; 
my $To         = '<e-mail address>'; 
my $Subject    = 'Test';
my $Type       = 'text/plain';
my $Host       = '<mail server name>';
my $msg = MIME::Entity->build(
        From    => $From,
        To      => $To,
        Subject => $Subject,
        Type    => $Type,
        Data    => 'This is a test message',
);
my @ok = $msg->smtpsend(
        Host    => $Host,
        To      => $To
);
if (@ok) {
     print "Sent message to: ", join(', ', @ok), "\n";
}
else {
	$en = 0;
	$en = Win32::GetLastError();
	$en_f = Win32::FormatMessage($en);
	print "Failed to send message error n <$en> message <$en_f>\n";
}