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

##</code><code>##

my @results = qx(echo 'connect to ctinld01 user db2tf0 using db2tf0\ndescribe select * from indic.name' | db2 );
print "<$_>" for @results;

##</code><code>##

db2 "connect ..." "select ..."