my $dbh = DBI->connect("dbi:Oracle:host=1xx.1x1.130.131;sid=xxxx;port=1521",
	$user_id,
	$passwd,{RaiseError=>1}
) || die "can NOT connect";