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

##</code><code>##

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