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();