#!/usr/bin/perl
use strict;
use warnings;

use DBI;
require DBD::Oracle;

my $oracle = do{
    my $db_name = 'dbname';
    my $db_user = 'userid';
    my $db_pass = 'password';
    my @dbi_path = ("dbi:Oracle:$db_name",$db_user,$db_pass);
    DBI->connect(  @dbi_path,
                    {
                        PrintError => 1,
                        RaiseError => 1,
                        AutoCommit => 0
                    }
                )
        or die "Database connect to $db_name failed: $DBI::errstr";
};