Tie::DBI::_quote(/usr/lib/perl5/site_perl/5.8.3/Tie/DBI.pm:523):
523:      if ($s->{'driver'} eq 'Oracle' && $types->{$field} eq 'DATE') {
  DB<5> p $field
UNIV_ACCT_ID
  DB<6> use Data::Dumper

  DB<7> p Dumper($types)
$VAR1 = {};

  DB<8> s
Use of uninitialized value in string eq at /usr/lib/perl5/site_perl/5.8.3/Tie/DBI.pm line 523.
        Tie::DBI::_quote('Tie::DBI=HASH(0xa119c94)','UNIV_ACCT_ID',25788305001)
called at /usr/lib/perl5/site_perl/5.8.3/Tie/DBI.pm line 431
        Tie::DBI::_fetch_field('Tie::DBI=HASH(0xa119c94)',25788305001,'ARRAY(0x9
ee90c8)') called at /usr/lib/perl5/site_perl/5.8.3/Tie/DBI.pm line 585
        Tie::DBI::Record::FETCH('Tie::DBI::Record=HASH(0xa0bbda8)','security_scr
een') called at /usr/lib/perl5/5.8.3/i386-linux-thread-multi/Data/Dumper.pm line 158
        Data::Dumper::Dump('Data::Dumper','ARRAY(0xa0bbb50)') called at /usr/lib/perl5/5.8.3/i386-linux-thread-multi/Data/Dumper.pm line 483
        Data::Dumper::Dumper('HASH(0xa094574)') called at test.pl line 33