sub connectdb {

 #Open the Oracle database:

 if (!defined(open(DBINFO, "$base/dbinfo"))) {
  die "Can't open dbinfo.\n";
 }

 while(defined($line = <DBINFO>)) {
   chomp($line);
   push @dbinfo, $line;
 }
 close(DBINFO);
 $dbh = DBI->connect($dbinfo[0],$dbinfo[1],$dbinfo[2],$dbinfo[3],
                    { RaiseError => 1,
                      AutoCommit => 1}
                   );

}