Il est très courant en Perl d'utiliser la construction
si celle-la même que l'on teste ne réussit pas. Pourtant, si un
échec de la fonction open() a quelque chose de définitif, ce
n'est pas forcément le cas pour une connexion à un serveur ou à
une base de données.
En ce sens, il peut être judicieux de tester plusieurs fois avant de
vraiment quitter le programme sur un échec. C'est ce que permet de
faire le module Attempt . Dans l'exemple qui suit, il va afficher
trois fois Hello World avant de mourir sur un échec.
use Attempt;
attempt {
print "Hello World\n";
die;
} tries => 3, delay => 1;