print "\n\t\t***** S T A R T S *****\n" ;

$dbh = DBI->connect("dbi:Oracle:$db","$uname","$password", {
               PrintError => 0,
               RaiseError => 0
               }   
) or die "\n\tCan't connect to $db :: $DBI::errstr\n" ;

$sth = $dbh->column_info(undef,undef,"$table","$column") or die "\n\tDidnae work min :: $!\n" ;

$sth->execute or die "\n\tCan't execute DBI command :: $DBI::errstr\n" ;

#------------------------------------------#
#    Retrieve the returned rows of data    #
#------------------------------------------#

while ( @row = $sth->fetchrow_array() ) {
      $detail = $row[0] ;
      $row_count ++ ;

      print "\n\tValue\t$detail\n" ;

}

print "\n\tThere were $row_count rows returned\n" ;