This script uses Mail::Sender to send email using an existing SMTP server.
It's very handy that the underlying module supports about every possible authentication mechanism (CRAM-MD5, NTLM, LOGIN, PLAIN) which the script tries out in turn until it finds a working one — unless you specify one manually.
That makes sending email much simpler if you don't know which authentication mechanism is supported by the server.
In your script you just have to call a simple sub routine:
mail_smtp($subject, $text, $to, $cc, $bcc, $from, $FROM)
The rest will happen automagically.