Comment tester le retour de smtp->dataend()

Bonjour,

je suis 100% novice en Perl.

J'ai un script qui utilise use Net::SMTP pour envoyer un mail en HTML.
J'avais posé une question ou l'on m'avais suggéré à juste titre d'utiliser MIME::Lite. Ce que j'ai fais. Mais là je travaille sur de l'existant sans possibilité de changer quoique ce soit.

Donc la méthode smtp->dataend() plante à cause du serveur SMTP.

Je voulais savoir comment tester un code retour, d'erreur avec cette méthode. Mais je trouve pas. En effet j'ai deux serveurs SMTP à ma disposition celà me permettrais de basculer de l'un sur l'autre.

Donc comment puis tester le retour de dataend().

Merci pour votre aide.

Je me répond a moi même:

Code:

---

1 2	$smtp->dataend() or die 'dataend method problem!'; my $ReturnCodeSMTP = $?;

---