$dbh = DBI->connect('dbi:Oracle:host=foobar;sid=ORCL port=1521', 'scott/tiger', '')

$dbh = DBI->connect('dbi:Oracle:', q{scott/tiger@(DESCRIPTION=(ADDRESS=(PROTOCOL=TCP)(HOST= foobar)(PORT=1521))(CONNECT_DATA=(SID=ORCL)))}, "")