my $dbh = DBI->connect( 'DBI:Oracle:SID',
                        'username',
                        'password',
                        {
                            PrintError  => 0,
                            RaiseError  => 1,
                            AutoCommit  => 0,
                        },
                    );