$dbh = DBI->connect("dbi:Oracle:database=abcd;host=neshat;port=1521", $user, $password, {PrintError => 1, RaiseError => 1}) or die "Can't execute statement: $DBI::errstr";