my $smtp = Net::SMTPS->new( $server, Port => $server_port, Debug => 1, doSSL => 
+$mail_sasl_type) || die "cannot connect to server ${server}";
my $sasl = Authen::SASL->new( mechanism => 'PLAIN', debug => 1, callback => {pas
+s => $pass, user => $user}); 
$smtp->auth( $sasl ) || die "cannot do mail auth";