Select Code to Download

DBI->connect(....) || fatal(error message)

sub openDB {
    my ($database, $user_id, $password) = ();
...
        }
    }
}