my $dbh = DBI->connect( 'DBI:ODBC:ALIAS', $username, $password);
    my $stmt = $dbh->prepare('SELECT * FROM SCHEMA.TABLE');
    $stmt->execute();
    ...

##</code><code>##

    my $type_ref =  $stmt->{TYPE};
    my $precision_ref =  $stmt->{PRECISION};
    my $scale_ref =  $stmt->{SCALE};
    my $colnames = $stmt->{NAME};
    my $nullable = $stmt->{NULLABLE};