Select Code to Download

  eval {
    require MIME::Base64;
    require Authen::SASL;
  } or $self->set_status(500, ["Need MIME::Base64 and Authen::SASL tod
+o auth"]), return 0;

if ($smtp->supports('AUTH',500,["Command unknown: 'AUTH'"])) {
    $smtp->auth( $args{AuthUser}, $args{AuthPass} )
...
} else {
    die "SMTP auth() command not supported on $hostname\n";
}