Select Code to Download

sub open_dbi
{
...
        }) or err_trap ("Cannot connect to the database");
    return $dbh;
    }