c:\> perl -MMail::Sender -e "print join ', ', Mail::Sender->QueryAuthProtocols('the.server.name')"