Select Code to Download

use Email::Sender::Simple qw(sendmail);
use Email::Sender::Transport::SMTPS;
...
);

sendmail($email, { transport => $transport });

Net::SMTPS>>> Net::SMTPS(0.10)
Net::SMTPS>>>   IO::Socket::IP(0.39)
...
Net::SMTPS=GLOB(0x556317f13e28)>>> AUTH PLAIN -stuff here-
Net::SMTPS=GLOB(0x556317f13e28)<<< 535 Incorrect authentication data
failed AUTH: Incorrect authentication data

use Net::SMTPS ;
use MIME::Lite ;
...
$smtps->datasend( $msg->as_string() );  
$smtps->dataend();  
$smtps->quit;

Net::SMTPS>>> Net::SMTPS(0.10)
Net::SMTPS>>>   IO::Socket::IP(0.39)
...
Net::SMTPS=GLOB(0x5609e794aac0)>>> AUTH PLAIN -stuff here
Net::SMTPS=GLOB(0x5609e794aac0)<<< 535 Incorrect authentication data
Could not authenticate