use Mail::Sender;
 print join(', ', Mail::Sender->QueryAuthProtocols('servername')),"\n";