sub DB_connect {
        return DBI->connect(
                $Const::DB_Name,
                $Const::DB_User,
                $Const::DB_Pass,
                { PrintError => 1, RaiseError => 1, AutoCommit => 1 }
        ) || die "DATABASE CONNECTION ERROR: " . $DBI::errstr . "\n";
}