my $dbh = DBI->connect("dbi:Oracle:host=xxxx;sid=sh;port=1526, $userid, $password");