$dbh = DBI->connect("dbi:Oracle:host=$orasrvr;sid=$sid", "$uname","$pass");