$tdb = DBI->connect("dbi:Oracle:","/",undef, { ora_session_mode => ORA_SYSDBA }) or &errHand("5","Database is unavailable.");