sub db_connect {
   ($database,$user,$password) = @_;
   my $h = DBI->connect("DBI:mysql:$database", $user, $password)
   or printError("Unable to connect to $database" . $DBI::errstr);
   return $h;
}