use DBI;
my $dbh = DBI->connect('dbi:DB2', 'db2tf0' );
my $sth_columns = $dbh->column_info(undef, undef, 'indic.name', undef);
# print out the results