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

##</code><code>##

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