hocuspokus

ALTER session SET NLS_SORT=BINARY_CI;
ALTER session SET NLS_COMP=LINGUISTIC;

use strict;
use DBI;
 
my $dbh = DBI->connect(
    'dbi:Oracle:schema_name',
    'user',
    'password',
    {
        RaiseError    => 1,
        AutoCommit    => 0,
        on_connect_do => [
            'alter session set NLS_SORT=BINARY_CI',
            'alter session set NLS_COMP=LINGUISTIC'
        ]
    }
) || die "Database connection not made: $DBI::errstr";
 
$dbh->disconnect();