sub connect_new {
   my($host,$db,$user,$pw) = @_;
#   my $host = "$config{'db'}{'db_host_name'}";
#   my $db = "$config{'db'}{'db_name'}";
#   my $user = "$config{'db'}{'db_user'}";
#   my $pw = "$config{'db'}{'db_pw'}";
   my $dsn = "DBI:mysql:host=$host;database=$db";
   return (DBI->connect($dsn,$user,$pw,
      {PrintError => 0, RaiseError => 1}));
}