#configuration file
<system>
  dsn        dbi:Oracle:dbname
  username   dbuser
  password   dbpwd
  <environment>
    ORACLE_HOME /ora92/product/9.2.1.0
  </environment>
</system>

##</code><code>##

my $conf = Configuration::Singleton->instance;
my $address = $conf->value('system/dsn');
my $user = $conf->value('system/username');
my $pwd = $conf->value('system/password');
my $environment = $conf->value('system/environment');
while ( my ($variable, $value) = each %$environment ) {
  $ENV{ uc($variable) } = $value;
}

my $dbh = DBI->connect( $address, $user, $pwd,
                        { RaiseError => 1,
                          AutoCommit => 0
                        }
) or die "$DBI::errstr";
$dbh->{FetchHashKeyName} = 'NAME_lc';