package CDNR::DBI;
  use base 'Class::DBI::Oracle';
  use Config::General;
  my %hostCF = ParseConfig("../mymodules/config.$hostname");

  CDNR::DBI->set_db('Main', $hostCF{'dbconnect'},
                             $hostCF{'dbname'},
                             $hostCF{'dbpw'});

  my $dbh = CDNR::DBI->db_Main;
  my $qs = "Alter session set nls_date_format = 'Mon-DD-YYYY'";
  $dbh->do($qs) or die "DB err alter date";