sub DESTROY {
    $SMTP->quit if $SMTP;
}