my $dbh = DBI->connect( "dbi:Oracle:" . $db_name , $db_user , $db_pass , {AutoCommit => 0} )
        or die "Fatal Error: Could not connect to the database: " . DBI->errstr() . "\n";