my $dbh = DBI->connect("$connection", "$user", "$pass",
    {PrintError => 0,
     PrintWarn => 0,
     RaiseError => 1,
     LongReadLen => 2000000100, # add 100 to the longest possible long, as per DBI man page
     ora_module_name => $base_scriptname  # set module name for this session to the name of this script.
    })
    or error_check('N','Y','N',"Could Not Connect To Database: ". $DBI::errstr);