use Mail::Sender; 
use Authen::NTLM; 

open my $DEBUG, ">file.txt" or die "Can't open the debug file: $!\n"; 

my $sender = new Mail::Sender{ 
smtp => 'mail.company.com', #disguised 
on_errors=>'die', 
from => 'sender@domain.com', 
to =>'recipient@domain.com', 
subject => 'this is a test', 
auth =>'NTLM', 
authid => 'user', 
authpwd => 'password', 
authdomain=>'domain', 
debug => $DEBUG, 
debug_level=>'4' 

} 
or die "$Mail::Sender::Error\n"; 

$sender->Open(); 
$sender->SendLineEnc("Hi,\n wasaaaaaaaa!\n"); 
$sender->Close(); 


##</code><code>##

>> 220 025-SN1MMR1-003 Authenticated Client Access Receive Connector 
<< EHLO C9118DEF1EFEBC4.xxx.xxxxxxx.com 
>> 250-025-SN1MMR1-003.025d.xxx.xxx.net Hello [123.123.123.123] <disguised> 
>> 250-SIZE 73400320 
>> 250-PIPELINING 
>> 250-DSN 
>> 250-ENHANCEDSTATUSCODES 
>> 250-STARTTLS 
>> 250-AUTH NTLM 
>> 250-8BITMIME 
>> 250-BINARYMIME 
>> 250 CHUNKING 
<< AUTH NTLM 
>> 334 NTLM supported 
<< TlRMTVNTUAABAAAAB7IAAAcABwAgAAAABAAEACcAAABCWEMwNTU3QU1FUg== 
>> 334 TlRMTVNTUAACAAAACAAIADgAAAAFgoECwB/WyydSiQ8AAAAAAAAAANAA0ABAAAAABgGxHQAAAA8wADIANQBEAAIACAAwADIANQBEAAEAHgAwADIANQAtAFMATgAxAE0ATQBSADEALQAwADAAMwAEACIAMAAyADUAZAAuAG0AZwBkAC4AbQBzAGYAdAAuAG4AZQB0AAMAQgAwADIANQAtAFMATgAxA0ATQBSADEALQAwADAAMwAuADAAMgA1AGQALgBtAGcAZAAuAG0AcwBmAHQALgBuAGUAdAAFACIAMAAyADUAZAAuAG0AZwBkAC4AbQBzAGYAdAAuAG4AZQB0AAcACAAxkEKdoKzNAQAAAAA=
<< TlRMTVNTUAADAAAAGAAYAEAAAAAYABgAWAAAAgACABwAAAADgAOAHgAAAAOAA4AhgAAAAAAAABUAAAABYKBAmXjRHO4f7Up8gDJRi6go2ftbklSQhvUifVDfd1R0yIz1YrYKXls9nDGT9l6iw1J/zAAMgA1AEQAQgBYAEMAMAA1ADUANwBCAFgAQwAwADUANQA3AA== 
>> 535 5.7.3 Authentication unsuccessful 
<< quit