#!/usr/bin/perl -w

use DBI;
use Data::Dumper;

my $dbh = DBI->connect( 'dbi:Sybase:server=name',  'user', 'pass' );
$dbh->do( "use database" );
my $sql = "select * from alertquerystring order by alert_id";
my $sth = $dbh->prepare( $sql );
$sth->execute;

print "The fields returned are of type: ", Dumper( $sth->{TYPE} );
print "The fields have the following precision ", Dumper( $sth->{PRECISION} );

$sth->finish;
$dbh->disconnect;