Select Code to Download

use Mail::Sender;
my $sender = new Mail::Sender {smtp => 'the.mail.server.com'};
die "Error: $Mail::Sender::Error\n" unless ref $sender;
print join(', ', $sender->QueryAuthProtocols()),"\n";

use Mail::Sender;
my $sender = new Mail::Sender {
...
  authid => 'username',
  authpwd => 'password',
};