sub DB_OPEN {
  my ($db_name,$host_name,$port,$db_user,$db_pass,) = @_;
  my $database = "DBI:mysql:$db_name:$host_name:$port";
  $dbh = DBI->connect($database,$db_user,$db_pass);
  return $dbh; # <----------------- :-)
} # end-sub