sub get_table_info() {

my ( $dbh, $table ) = @_;

my @columns = ();

my $sql = "exec sp_getcol2 $table";

my $sth = $$dbh->prepare( $sql )
    or $app->log($FATAL,"Can't prepare SQL statement [ $sql ] :: $DBI::errstr");

$sth->execute()
    or $app->log($FATAL,"Can't prepare SQL statement [ $sql ] :: $DBI::errstr");

while ( my (@results) = $sth->fetchrow_array() ) {
    my $col_ref = {
            'name' => $results[0],
            'type' => $results[1],
            'length' => $results[2],
            'prec' => $results[3],
            'scale' => $results[4],
            'null' => $results[5],
            'identity' => $results[8]
    };
    push @columns, $col_ref;
}
$sth->finish();

return \@columns;

}