#!/usr/local/bin/perl -w

use strict;
use DBI;
use Tie::DBI;
use Carp qw{cluck};
use Data::Dumper;

my $crdmdbname = 'dbi:Oracle:production.world';
my $crdmuser = 'ZEEKRIT';
my $crdmpassword = 'UBERZEEKRIT';


my $crdmdbh = DBI->connect ($crdmdbname, $crdmuser, $crdmpassword);

tie my %crdmRec,'Tie::DBI',
{
    db       => $crdmdbh,
    table    => 'CRDM.CONSUMER_ACCT_HIST_200608',
    key      => 'UNIV_ACCT_ID',
    CLOBBER  => 0,
    AUTOCOMMIT => 0
};

# this Dumper generates one complaint per column (292)
# plus one for the key
print Dumper($crdmRec{25788305001});

$crdmdbh->disconnect();