Tester le chargement d'un module

Utiliser un eval dans un BEGIN :

BEGIN
{
        if(eval("use DB_File;1;"))
        {
                $db = "DB";
        }
        else
        {
                use GDBM_File;
                $db = "GDBM";
        }
}

print "Use of $db format for spools\n";

Si le chargement du premier module doit échouer, alors le programme chargera le second puis informera l'utilisateur du module chargé.