#!

use strict;
use warnings;

use DBI;

my $dbh = DBI->connect('dbi:Oracle:adhoc',
                       'foo',
                       'bar',
                       { RaiseError => 1, AutoCommit =>0} 
                      ) || die "Database connection not made: $DBI::errstr";
$dbh->disconnect;