$dbh = DBI->connect("DBI:Oracle:host=$SERVER;sid=$SID;uid=$UID;pwd=$PWD");