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();