CREATE TABLE [Web_Team].[tblDept] (
	[deptID] [int] IDENTITY (1, 1) NOT NULL ,
	[deptName] [char] (100) NOT NULL ,
	[defaultMsg] [text] NOT NULL ,
	[active] [bit] NOT NULL 
)

##</code><code>##

SELECT * FROM tblDept

##</code><code>##

{'LongTruncOk' => 0, LongReadLen => 1000000 }

##</code><code>##

my $DSN = 'driver={SQL Server};server=devcgi;tcpip=123.123.123.123:1234;database=testbed;uid=web;pwd=team;'; 

my $dbh = DBI->connect("dbi:ODBC:$DSN",'web','team', {'LongTruncOk' => 0, LongReadLen => 1000000 })
   || die "Couldn't open database: $DBI::errstr\n";

$dbh->trace(2, "test" );

my $sth = $dbh->prepare('SELECT * FROM tblDept')
   || die "Couldn't prepare statement: $DBI::errstr\n";

$sth->execute()
   || die "Couldn't execute statement: $DBI::errstr\n";

my $temp = $sth->fetchall_arrayref({})
   || die "Couldn't fetch: $DBI::errstr\n";

print Dumper($temp),"\n";

$dbh->disconnect();