my $db_server   = "";
my $host        = $db_server;
my $db          = "";
my $db_user     = "";
my $db_password = '';
my $dbh = DBI->connect("dbi:Oracle:$host",
    $db_user,     # Do NOT quote a simple variable (yes, undef is valid)
    $db_password, # Do NOT quote a simple variable (yes, undef is valid)
    {   RaiseError         => 1,   # Let DBI crash on errors
        PrintError         => 1,   # And have it shaw what fails
        ChopBlanks         => 1,   # Mostly a good idea
        ShowErrorStatement => 1,   # You'll want to see the statement
        FetchHashKeyName   => "NAME_lc",  # Be predictable for field names
        LongReadLen        => 0x7FFFF,    # How big is your data?
        }
    ) or die "Couldn't connect to database: ".DBI->errstr;